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

関連項目

Application オブジェクト

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

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