Cómo Word genera números automáticamente.

Usando VBA, presione Alt+F11 para abrirlo, inserte un nuevo módulo e ingrese el código. Solo puedo hacer que los números se acumulen al imprimir. Por ejemplo, el número 0001 se imprime al principio, y cuando se imprime el segundo, se convierte en 0002 y el número se acumula hasta 9999. El código es el siguiente:

Sub? Números ordinarios()

¿Oscuro? ¿I? ¿Como? Entero

¿Atenuado? morir? ¿Como? Entero

¿Abierto? ¿error? ¿CV? Entonces

¿Yo? =?InputBox("Ingrese el número inicial", "Número inicial" 1)? -?1

día? =?InputBox("Ingrese el número de copias a imprimir",? "Número de copias a imprimir"? 1)

¿Para qué? morir? =?1?¿Adónde ir? morir? ¿paso? 1

¿Yo? =?Yo? +?1

¿Y si? ¿I? & gt=?1000?Luego

Seleccione. Escribe retroceso

seleccionar. Escribe retroceso

seleccionar. ¿Teclee el texto? Texto:=Yo

Impresión de ActiveDocument

Otro

¿Si? ¿I? & gt=?100?Luego

Seleccione. Escribe retroceso

seleccionar. Escribe retroceso

seleccionar. ¿Teclee el texto? Texto:="0 "? y amplificador? Yo

Impresión de ActiveDocument

Otro

¿Y si? ¿I? & gt=?10?Luego

Seleccionar. Escribe retroceso

seleccionar. Escribe retroceso

seleccionar. ¿Teclee el texto? Texto:="00 "? y amplificador? Mi

Impresión de ActiveDocument

Otro

seleccione. Escribe retroceso

seleccionar. Escribe retroceso

seleccionar.

¿Teclee el texto? Texto:="000 "? y amplificador? ¿

Impresión de ActiveDocument

finalizar? Si

¿Finalizar? Si

¿Finalizar? ¿Y si

Siguiente? Disprosio

¿Fin? Submarino

上篇: Los edificios en forma de rombo aparecen a menudo en las series de televisión de TVB. 下篇: ¿Qué significa soñar con comer castañas?