Cómo crear una macro en Word para imprimir números de página más un número

Cree un nuevo comando de macro llamado MyPrint en Herramientas-Macro-Macro de Word...., luego haga clic en Crear. Después de borrar todo el contenido en el cuadro de código, pegue el siguiente código tal como está y guárdelo. Eso es todo, y luego ejecute la macro para lograr su propósito (Nota: si imprime en el futuro, en lugar de imprimir 3 páginas de forma predeterminada, pero otros números, debe abrir el cuadro de diálogo del comando de macro nuevamente y seleccionar la macro MyPrint. nombre y luego haga clic en Haga clic en Editar para abrir la ventana de código, cambie el número 3 después de Para al número de copias que desea imprimir esta vez y luego guárdelo. Nota: Las condiciones aplicables para esta macro son: el documento de Word tiene. solo una página, y está ejecutando esto. Antes de usar la macro, debe insertar manualmente el número de página en el pie de página; de lo contrario, la primera página impresa no tendrá número de página, pero las páginas siguientes tendrán números de página automáticamente)

Sub MyPrint()

Para i = 1 a 3 'El 3 aquí se refiere a cuántas hojas desea imprimir esta vez. Si necesita imprimir 100 hojas, simplemente cambie 3 a 100. Deje los demás sin cambios, y así sucesivamente.

ActiveDocument.PrintOut 'Enviar contenido de impresión e instrucciones a la impresora

waitTime = TimeSerial(Hora(Now()), Minuto(Now()), Segundo(Now()) 3 ) 'Obtenga la hora en la que se envía este comando de impresión más el número de segundos de retraso como referencia

'Dado que se necesitan varios segundos para imprimir una copia, cada vez que se envía un comando de impresión, habrá un retraso de 3 segundos, dependiendo de la velocidad de la impresora. El número de retraso de impresión se puede ajustar, con un retraso máximo de 6 segundos. El retraso aquí se especifica en 3 segundos.

Do While Time lt; waitTime 'Bucle vacío, el propósito de continuar el retraso antes de que se alcance el retraso

'Retraso de 3 segundos para cada impresión

Bucle

'El siguiente es un cuadro de diálogo para abrir el cuadro de diálogo Insertar número de página de Word y un cuadro de diálogo para configurar el número de página inicial. Sin embargo, el número de página se incrementa automáticamente en 1 para cada página impresa. al uso de VBA, estos dos El cuadro de diálogo no se muestra

Con Selection.Sections(1).Headers(1).PageNumbers

.NumberStyle = wdPageNumberStyleArabic

.HeadingLevelForChapter = 0

.IncludeChapterNumber = False

.ChapterPageSeparator = wdSeparatorHyphen

.RestartNumberingAtSection = True

.StartingNumber = .StartingNumber 1 'Cada impresión de una página, el número de página se agrega automáticamente a 1

Terminar con

Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment: = _

wdAlignPageNumberRight, Primera página:=True

Siguiente i

Fin del sub