En el siguiente artículo, queremos compartir con usted 2 formas rápidas de imprimir por lotes páginas específicas de varios documentos de Word.
La impresión de archivos por lotes es definitivamente una bendición para muchos de nosotros. Ahorra tiempo al abrir cada archivo y también un par de clics. Ahora, ¿qué pasa con la impresión por lotes de páginas específicas de varios documentos de Word? Por ejemplo, sería útil imprimir la primera página de varios archivos al mismo tiempo. Además, para imprimir las páginas de "Contenido" o "Referencias" de varios archivos también se necesitan. Entonces, ¿podemos hacerlo?
Sí, la respuesta es corta. Y lo mejor es que no necesitamos complementos de terceros.
Método 1: Imprima por lotes la primera página de varios documentos
- Para empezar, guarda todos los documentos de destino en el mismo directorio.
- Luego haga clic en la pestaña "Desarrollador" y "Visual Basic" para abrir el editor de VBA. O presione "Alt+ F11" en su lugar.
- Luego haga clic en “Normal” y luego en “Insertar”.
- Elija "Módulo" en el menú desplegable.
- Ahora habrá un nuevo módulo. Haga doble clic en él para que aparezca el espacio de edición.
- Pegue la macro en el módulo:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
- A continuación, haga clic en el botón "Ejecutar" o presione "F5".
- En el cuadro que aparece, ingrese la ruta de la carpeta donde guarda los archivos, como "E:\palabra de prueba\prueba\. No olvides el último “\”. Haga clic en "Aceptar" para continuar.
Solo espera la impresión.
Método 2: Impresión por lotes de páginas específicas de varios documentos
Para imprimir páginas específicas de varios documentos, puede utilizar la siguiente macro.
Instale y ejecute la macro con los mismos pasos del método 1, pero reemplácela con esta macro:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
Dim strPages As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
De igual forma, introduzca la ruta de la carpeta en el primer recuadro. A continuación, introduzca el número de página en el segundo. Para imprimir páginas consecutivas, utilice un guion para separar los números de inicio y fin, como por ejemplo «1-3». Para imprimir páginas no consecutivas, utilice una coma como separador, como por ejemplo «1, 3, 5». Por ejemplo, «1, 3-6» significa imprimir las páginas 1, 3, 4, 5 y 6.
Herramienta de reparación que necesita tener
Sucede que Word deja de responder de repente, dejando su documento atascado. La posibilidad de heredar un archivo roto de un palabra dañada. A veces, la consecuencia es demasiado abrumadora para soportarla. Puede culparse a sí mismo por no haber realizado copias de seguridad. Pero lo más importante que debe hacer es obtener un producto de recuperación para recuperar los datos de inmediato.
Introducción del autor:
Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo Excel corrompido y pdf reparar productos de software. Para más información visite www.datanumen.com