ドキュメントにシリアル番号を作成する必要があり、それらが本質的に非常に単純な場合は、マクロを使用して作成できます。シリアル番号へのこのアプローチは、シリアル番号が連続している場合（1、2、3など）、または発生率が規則的である場合（3、5、7など）に最適です。

まず、シリアル番号の変更とドキュメントの印刷を制御するマクロを入力する必要があります。次のマクロを使用できます：

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

マクロを使用するための前提条件は1つだけです。つまり、ドキュメントにSerialという名前のブックマークが含まれていることを確認する必要があります。このブックマークは、最初に印刷されたドキュメントに表示するため、ドキュメントのシリアル番号を参照する必要があります。 （マクロの実行が終了したら、ドキュメントを保存できます。シリアル番号は、次に使用するときに使用できるようになります。）

このマクロは、シリアル番号が主に反復ごとに変化する数値で構成されていることも前提としています。マクロ内のFor …​ Nextループで、シリアル番号の増分とそのフォーマットを変更できます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（9540）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

linkシーケンシャルドキュメントのシリアル番号の使用。