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