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

メソッド

• Item

プロパティ

• Application
• Count
• Creator
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

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

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