Si necesita crear números de serie en sus documentos y son de naturaleza muy simple, puede hacerlo mediante una macro. Este enfoque de los números de serie es excelente si sus números de serie son secuenciales (1, 2, 3, etc.) o regulares en su incidencia (3, 5, 7, etc.).

Para comenzar, debe ingresar la macro que controlará el cambio del número de serie y la impresión de su documento. Puede utilizar la siguiente macro:

Sub MySerial()

Dim rngSerialLocation As Range     Dim intSerialNum As Integer     Dim strSerialNum As String     Dim docCurrent As Document     Dim intNumCopies As Integer     Dim intCount As Integer

' set ref to current active doc     Set docCurrent = Application.ActiveDocument     ' set ref to the bookmarked serial number     Set rngSerialLocation = docCurrent.Bookmarks("Serial").Range

' get the starting number     intSerialNum = Val(rngSerialLocation.Text)

' get the number of copies required     intNumCopies = Val(InputBox$("How many Copies?", _       "Print Serialized", "1"))



For intCount = 1 To intNumCopies         ' print the document         docCurrent.PrintOut Range:=wdPrintAllDocument         ' increment the serial number         intSerialNum = intSerialNum + 1         ' put into formatted version         strSerialNum = Format(intSerialNum, "00000")

' stuff into proper place         rngSerialLocation.Text = strSerialNum     Next intCount

' reset the bookmark, since the updating procedure     ' wipes out the old one     docCurrent.Bookmarks.Add Name:="Serial", _       Range:=rngSerialLocation End Sub

Solo hay un requisito previo para usar la macro: debe asegurarse de que su documento contenga un marcador llamado Serial. Este marcador debe hacer referencia al número de serie en su documento, tal como desea que aparezca en el primer documento impreso. (Cuando termine de ejecutar la macro, puede guardar el documento y el número de serie estará listo para la próxima vez que desee usarlo).

La macro también asume que su número de serie consiste principalmente en algún valor numérico que cambia con cada iteración. Puede modificar el incremento del número de serie, así como su formato, en el bucle For …​ Next dentro de la macro.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Esta sugerencia (9540) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Using_Sequential_Document_Serial_Numbers [Usando números de serie de documentos secuenciales].