Se hai bisogno di creare numeri di serie nei tuoi documenti e sono di natura molto semplice, puoi farlo utilizzando una macro. Questo approccio ai numeri di serie è ottimo se i numeri di serie sono sequenziali (1, 2, 3, ecc.) O regolari nella loro incidenza (3, 5, 7, ecc.).

Per iniziare, devi inserire la macro che controllerà la modifica del numero di serie e la stampa del tuo documento. Puoi usare la seguente 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

C’è solo un prerequisito per usare la macro: devi assicurarti che il tuo documento contenga un segnalibro chiamato Seriale. Questo segnalibro deve fare riferimento al numero di serie nel documento, come si desidera che appaia nel primo documento stampato. (Quando hai finito di eseguire la macro, puoi salvare il documento e il numero di serie sarà pronto per la prossima volta che vorrai usarlo.)

La macro presuppone inoltre che il numero di serie sia costituito principalmente da un valore numerico che cambia a ogni iterazione. È possibile modificare l’incremento del numero di serie, nonché la sua formattazione, nel ciclo For …​ Next all’interno della macro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1747) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia della barra multifunzione di Word (Word 2007 e più tardi) qui:

Using Sequential Document Serial Numbers.