MailMergeDataSources.Item メソッド (Publisher)
MailMergeDataSources コレクション内の指定したインデックス位置にある MailMergeDataSource オブジェクトを返します。
構文
式。Item (varIndex)
式MailMergeDataSources オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
varIndex | 必須 | バリアント型 (Variant) | 取得するオブジェクトのインデックス番号または名前を指定します。 |
戻り値
MailMergeDataSource
注釈
Item メソッドは、MailMergeDataSources コレクションの既定のメンバーです。
作業中の文書の 1 つの MailMergeDataSource オブジェクトのみの場合は、 MailMergeDataSources コレクションは空です。 その場合は、データ ソースのコレクションを取得する MailMergeDataSource オブジェクトの データ ソース プロパティを使用しようとすると、Publisher はエラーを返します。
例
次の Microsoft Visual Basic for Applications (VBA) マクロは、作業中の文書で、 MailMergeDataSources コレクション内のすべての接続されたデータ ソースの名前を取得する方法を示しています。 作業中の文書の IsDataSourceConnected プロパティを使用して、データ ソースが接続されているかどうかを判断します。
1 つ以上のデータ ソースが接続されている場合、マクロは Count プロパティを使用して、接続されているデータ ソースの数を決定します。
1 つのデータ ソースだけが接続されている場合、マクロはそのデータ ソースの名前を [イミディエイト] ウィンドウに出力します。複数のデータ ソースが接続されている場合、マクロは Item メソッドを使用してコレクションを反復処理し、 MailMergeDataSource.Name プロパティを使用して、接続されている各データ ソースの名前をイミディエイト ウィンドウに出力します。
Public Sub Item_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 を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示