Word
VBAによるバーコードオブジェクト

既存のメールマージ文書を開くか、新規作成します。


バーコードオブジェクトをメールマージ文書に追加します。ドキュメント内の必要な場所に配置し、バーコードのタイプやサイズなど、オブジェクトのプロパティを設定します。

これは例えば次のスクリーンショットのようになる。バーコード・オブジェクトの名前に注目してください - ここでは黄色でハイライトされています。通常、これはBarcode1となります。




メールマージにはマクロが必要です。以下のマクロを追加することができます。これをクリップボードにコピーし、そこからWordのVisual Basic for Applicationsエディタに貼り付けます：

Sub MailMerge_example_with_ActiveBarcode()
 ' Macro shows how to print barcodes in a mail merge.
 if MsgBox("Do you want to print mail merged documents?", vbYesNo, "Question") = vbYes Then
   'counter to zero
   num = 0
   'first record is number one
   ActiveDocument.MailMerge.DataSource.ActiveRecord = 1
   Do
    ' Fill ActiveBarcode text property now
    ActiveDocument.Barcode1.Text = ActiveDocument.MailMerge.DataSource.DataFields("Productcode").Value
    ' do not prompt for printing...
    Options.PrintBackground = True
    ' print page
    ActiveDocument.PrintOut
    ' recognize old record
    lastone = ActiveDocument.MailMerge.DataSource.ActiveRecord
    ' select next record
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
    'count
    num = num + 1
    ' check if there are new ones
   Loop While ActiveDocument.MailMerge.DataSource.ActiveRecord <> lastone
   ' notify user
   MsgBox (Str(num) + " pages printed!")
 End If
 End Sub

結果はこのようになる。スクリーンショットでは、マクロが挿入されている場所も確認できる。




ここで、マクロをメールマージ文書に合わせます：

バーコード・オブジェクトの名前がBarcode1でない場合は、マクロで変更してください。

ここで、バーコードに使用するフィールド名をデータソースから変更します。この例では、Productcodeが使用されています。引用符の中の名前を変更します。




ドキュメントを保存し、テスト印刷のためにマクロを開始します。

ヒント：エラー時のミスプリントを少なくするため、少量のデータからテスト印刷を開始する。




完了した。

マクロをドキュメント自体ではなくNormal.dotに配置した場合、マクロ実行時にドキュメントがデザインモードであってはなりません。そうするとエラーになります。したがって、マクロを実行する前にデザインモードをオフにしてください。