次の方法で共有


Application.MailMergeDataSourceLoad イベント (Word)

差し込み印刷のためにデータ ファイルがロードされたときに発生します。

構文

MailMergeDataSourceLoad (Doc)

クラス モジュール内のイベントで宣言された 'Application' オブジェクトを表す変数。 Application オブジェクトでイベントを使用する方法については、「 Application オブジェクト でのイベントの使用」を参照してください。

パラメーター

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

次の使用例は、データ ファイルのロードを開始したときに、データ ファイルのファイル名をメッセージで表示します。 この使用例では、アプリケーション変数 MailMergeApp が General Declarations に宣言され、その変数が Word の Application オブジェクトとして設定されていることを前提としています。

Private Sub MailMergeApp_MailMergeDataSourceLoad(ByVal Doc As Document) 
 Dim strDSName As String 
 Dim intDSLength As Integer 
 Dim intDSStart As Integer 
 
 'Extract from the Name property only the file name 
 intDSLength = Len(Doc.MailMerge.DataSource.Name) 
 intDSStart = InStrRev(Doc.MailMerge.DataSource.Name, "\") 
 intDSStart = intDSLength - intDSStart 
 strDSName = Right(Doc.MailMerge.DataSource.Name, intDSStart) 
 
 'Deliver a message to user when data source is loading 
 MsgBox "Your data source, " & strDSName & ", is now loading." 
End Sub

関連項目

Application オブジェクト

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

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