MailMergeDataSources オブジェクト (Publisher)
作業中の Microsoft Publisher ドキュメント内のすべての MailMergeDataSource オブジェクトのコレクションを表します。それぞれは、差し込み印刷操作のデータ ソースの 1 つを表します。
注釈
MailMergeDataSources コレクションの既定のメンバーは Item メソッドで、指定したインデックス位置にある MailMergeDataSource オブジェクトを返します。
作業中の文書の 1 つの MailMergeDataSource オブジェクトのみの場合は、 MailMergeDataSources コレクションは空です。 その場合、MailMergeDataSource オブジェクトの DataSources プロパティの値を取得しようとすると、Publisher からエラーが返されます。
例
次の Microsoft Visual Basic for Applications (VBA) マクロは、作業中の文書で、 MailMergeDataSources コレクション内のすべての接続されたデータ ソースの名前を取得する方法を示しています。 作業中の文書の IsDataSourceConnected プロパティを使用してデータ ソースが接続されているかどうかを決定します。
1 つまたは複数のデータ ソースが接続されている場合、マクロ、 MailMergeDataSources コレクションの Count プロパティを使用して、どのように多くのデータ ソースが接続されているを決定します。
1 つのデータ ソースだけが接続されている場合、マクロはそのデータ ソースの名前を [イミディエイト] ウィンドウに出力します。 複数のデータ ソースが接続されている場合は、Item メソッドを使用してコレクションを反復処理し、MailMergeDataSource オブジェクトの Name プロパティを使用して、接続されている各データ ソースの名前をイミディエイト ウィンドウに出力します。
Public Sub MailMergeDataSources_Example()
Dim pubMailMergeDataSources As Publisher.MailMergeDataSources
Dim pubMailMergeDataSource As Publisher.MailMergeDataSource
Dim lngCount As Long
Dim intCounter As Integer
If ThisDocument.IsDataSourceConnected Then
Set pubMailMergeDataSources = ThisDocument.MailMerge.DataSource.DataSources
lngCount = pubMailMergeDataSources.Count
If lngCount > 1 Then
' More than one data source is connected.
For intCounter = 1 To lngCount
Debug.Print pubMailMergeDataSources.Item(intCounter).Name
Next
Else
' Only one data source is connected.
Set pubMailMergeDataSource = ThisDocument.MailMerge.DataSource
Debug.Print "Only one data source ("; pubMailMergeDataSource.Name; ") is connected!"
End If
Else
Debug.Print "No data sources are connected!"
End If
End Sub
メソッド
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示