Application.MailMergeBeforeRecordMerge イベント (Word)

  • [アーティクル]

差し込み印刷の各レコードに対して差し込みを実行するときに発生します。

構文

式。MailMergeBeforeRecordMerge (Doc, Cancel)

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

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

パラメーター

名前 必須 / オプション データ型 説明
Doc 必須 Document 差し込み印刷のメイン文書を指定します。
Cancel 必須 ブール型 (Boolean) True を停止のみ、現在のレコードに、差し込み印刷の処理を開始する前にします。

例

次の使用例は、この例ではフィールド番号 6 の郵便番号の長さが 5 桁未満であることを確認し、その場合は、そのレコードの差し込み印刷のみを取り消します。 この使用例では、アプリケーション変数 MailMergeApp を General Declarations に宣言していること、および Microsoft Word の Application オブジェクトと同じ変数を設定していることを前提としています。

Private Sub MailMergeApp_MailMergeBeforeRecordMerge(ByVal _ 
 Doc As Document, Cancel As Boolean) 
 
 Dim intZipLength As Integer 
 
 intZipLength = Len(ActiveDocument.MailMerge _ 
 .DataSource.DataFields(6).Value) 
 
 'Cancel merge of this record only if 
 'the ZIP Code is fewer than five digits 
 If intZipLength < 5 Then 
 Cancel = True 
 End If 
 
End Sub

関連項目

Application オブジェクト

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

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