次の方法で共有

Application.MailMergeAfterMerge イベント (Word)

  • [アーティクル]

差し込み印刷のレコードがすべて正常に差し込まれた後に発生します。

構文

式。MailMergeAfterMerge (Doc, DocResult)

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

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

パラメーター

名前 必須 / オプション データ型 説明
Doc 必須 Document 差し込み印刷のメイン文書を指定します。
DocResult 必須 Document 差し込み印刷によって作成する文書を指定します。

例

次の使用例は、指定された文書内のすべてのレコードの差し込みが終了したことを知らせるメッセージを表示します。 指定された文書が 2 番目の文書に差し込まれると、新しい文書の名前を知らせるメッセージを表示します。 この使用例では、アプリケーション変数 MailMergeApp が General Declarations に宣言され、その変数が Word の Application オブジェクトとして設定されていることを前提としています。

Private Sub MailMergeApp_MailMergeAfterMerge(ByVal Doc As Document, _ 
 ByVal DocResult As Document) 
 If DocResult Is Nothing Then 
 MsgBox "Your mail merge on " & _ 
 Doc.Name & " is now finished." 
 
 Else 
 MsgBox "Your mail merge on " & _ 
 Doc.Name & " is now finished and " & _ 
 DocResult.Name & " has been created." 
 End If 
End Sub

関連項目

Application オブジェクト

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

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