Application.MailMergeInsertBarcode イベント (Publisher)

Microsoft Publisher のユーザー インターフェイス (UI) またはプログラムで、郵便番号バーコードを差し込み印刷文書に挿入するコマンドをユーザーが発行すると発生します。

構文

式。MailMergeInsertBarcode (Doc, OkToInsert)

expressionApplication オブジェクトを 表す変数。

パラメーター

注釈

TextRange.InsertBarcode メソッドを使用して、差し込み印刷文書にバーコードを挿入します。

差し込み印刷のアドレスを検証するサード パーティ製アドインは、ユーザーの操作がそのバーコードを挿入する要求をリッスンするように MailMergeInsertBarcode イベントを使用できます。 この状況では、アドインは MailMergeInsertBarcode イベントが発生したという通知を受け取ると、差し込み印刷リスト内のアドレスの有効性を確認し、アドレスが有効な場合はバーコードの生成を試みます。 この試行が成功した場合、アドインは OkToInsert パラメーターの True を返す必要があります。 試行が失敗した場合、アドインは False を返します。

実際のバーコード データは、 MailMergeGenerateBarcode イベントによって Publisher に提供されます。

MailMergeInsertBarcode イベントは、ユーザーが [差し込み印刷] または [差し込み印刷] 作業ウィンドウで [郵便番号バーコードの追加] を選択するか、パブリッシャー UI の [パブリッシャー タスク] 作業ウィンドウで郵便番号コードを追加するを選択した場合にもトリガーされます。 ユーザーがこれらの UI コマンドのいずれかを選択するには、まず InsertBarcodeVisible プロパティを True に設定して使用できるようにする必要があります。

Application オブジェクトでイベントを使用する方法の詳細については、「 Application オブジェクト でのイベントの使用」を参照してください。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、 MailMergeInsertBarcode イベントを処理する方法を示しています。 バーコードの挿入を続行するかどうかを確認するメッセージが表示されます。

Private Sub pubApplication_MailMergeInsertBarcode(ByVal Doc As Document, OkToInsert As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Proceed to insert barcodes?", vbYesNo) 
 
 If intResponse = vbYes Then OkToInsert = True 
 
End Sub

For this event to occur, you must place the following line of code in the General Declarations section of your module.

Public WithEvents pubApplication As Application

その後、次の初期化手順を実行する必要があります。

Public Sub Initialize_pubApplication() 
 Set pubApplication = Publisher.Application 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。