Wenn Sie Seriennummern in Ihren Dokumenten erstellen müssen und diese sehr einfach sind, können Sie dies mithilfe eines Makros tun. Dieser Ansatz für Seriennummern ist ideal, wenn Ihre Seriennummern fortlaufend (1, 2, 3 usw.) oder regelmäßig (3, 5, 7 usw.) sind.

Zu Beginn sollten Sie das Makro eingeben, das die Änderung der Seriennummer und den Druck Ihres Dokuments steuert. Sie können das folgende Makro verwenden:

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

Es gibt nur eine Voraussetzung für die Verwendung des Makros: Sie müssen sicherstellen, dass Ihr Dokument ein Lesezeichen mit dem Namen „Seriell“ enthält. Dieses Lesezeichen sollte auf die Seriennummer in Ihrem Dokument verweisen, wie sie im ersten gedruckten Dokument erscheinen soll. (Wenn Sie mit dem Ausführen des Makros fertig sind, können Sie das Dokument speichern und die Seriennummer ist bereit, wenn Sie es das nächste Mal verwenden möchten.)

Das Makro geht auch davon aus, dass Ihre Seriennummer hauptsächlich aus einem numerischen Wert besteht, der sich mit jeder Iteration ändert. Sie können das Inkrementieren der Seriennummer sowie deren Formatierung in der For …​ Next-Schleife innerhalb des Makros ändern.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1747) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Using Sequential Document Serial Numbers.