Application.MailMergeBeforeMerge イベント (Word)
レコードが差し込まれる前に差し込みが実行されたときに発生します。
構文
式。MailMergeBeforeMerge (Doc、 StartRecord、 EndRecord、 Cancel)
expressionApplication オブジェクトを 表す変数。
Application オブジェクトでイベントを使用する方法については、「 Application オブジェクト でのイベントの使用」を参照してください。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Doc | 必須 | Document | 差し込み印刷のメイン文書を指定します。 |
| StartRecord | 必須 | 長整数型 (Long) | 差し込み印刷に含めるデータ ファイル内の先頭レコードを指定します。 |
| EndRecord | 必須 | 長整数型 (Long) | 差し込み印刷に含めるデータ ソースの最後のレコードです。 |
| Cancel | 必須 | ブール型 (Boolean) | True を停止する、差し込み印刷プロセスを開始する前にします。 |
例
次の使用例は、差し込み印刷を開始する前にメッセージを表示して、差し込み印刷を続行するかどうかの確認をユーザーに求めます。 ユーザーが [いいえ] をクリックすると、差し込み印刷は取り消されます。 この使用例では、アプリケーション変数 MailMergeApp を General Declarations に宣言していること、および Microsoft Word の Application オブジェクトと同じ変数を設定していることを前提としています。
Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _
ByVal StartRecord As Long, ByVal EndRecord As Long, _
Cancel As Boolean)
Dim intVBAnswer As Integer
'Request whether the user wants to continue with the merge
intVBAnswer = MsgBox("Mail Merge for " & _
Doc.Name & " is now starting. " & _
"Do you want to continue?", vbYesNo, "MailMergeBeforeMerge Event")
'If users response to question is No, cancel the merge process
'and deliver a message to the user stating the merge is canceled
If intVBAnswer = vbNo Then
Cancel = True
MsgBox "You have canceled mail merge for " & _
Doc.Name & "."
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。