Tengo más de 300 documentos de Word para imprimir. Cada documento de Word tiene 5 páginas, pero solo quiero imprimir la cuarta página. ¿Cómo puedo imprimirlos en lotes?

Utilice el comando DIR *.DOCgt; AAA.txt en CMD para guardar todos los nombres de archivos en el archivo AAA.txt, luego use EXCEL para abrir el archivo, ordenarlo en columnas y eliminar todos los caracteres. excepto el nombre del archivo para todos los contenidos, coloque el nombre del archivo que comienza con A1 en la columna A. Ejecute el siguiente programa VBA, lea los nombres de los archivos uno por uno, abra, imprima la página 4 y cierre el archivo.

Sub macro 1()

Dim intLastRow, arr, intLoop

intLastRow = Cells(Rows.Count, 1).End(xlUp).Row

arr = Range("a1：b" & intLastRow)

Para intLoop = 1 a UBound(arr)

Abra "D:\FILE\" amp ; arr(intLoop, 1) amp; ".doc" Para salida como #1

Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _

wdPrintDocumentWithMarkup, Copias:=1, Páginas:="4", Tipo de página:=_

wdPrintAllPages, Intercalar:=True, Fondo:=True, PrintToFile:=False, _

PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

PrintZoomPaperHeight:=0

Cerrar #1

Siguiente

End Sub

Otro método es pagarle a alguien de una agencia de mecanografía para que le ayude a imprimirlos uno por uno.