MailMergeDataSources.Item-Methode (Publisher)

Gibt das MailMergeDataSource -Objekt an der angegebenen Indexposition in der MailMergeDataSources -Auflistung zurück.

Syntax

Ausdruck. Item (varIndex)

Ausdruck Eine Variable, die ein MailMergeDataSources-Objekt darstellt.

Parameter

Rückgabewert

MailMergeDataSource

HinwBemerkungeneise

Die Item-Methode ist das Standardelement der MailMergeDataSources-Auflistung .

Wenn nur ein MailMergeDataSource -Objekt in das aktive Dokument vorhanden ist, ist die MailMergeDataSources -Auflistung leer. In diesem Fall, wenn Sie versuchen, die DataSources -Eigenschaft des MailMergeDataSource -Objekts verwenden, um die Data Sources-Auflistung abzurufen, Microsoft Publisher ein Fehler zurückgegeben.

Beispiel

Der folgende Microsoft Visual Basic für Applikationen (VBA)-Makro zeigt, wie die Namen aller verbundenen Datenquellen in der MailMergeDataSources -Auflistung im aktiven Dokument abgerufen. Sie verwendet die IsDataSourceConnected-Eigenschaft des aktiven Dokuments, um zu bestimmen, ob eine Datenquelle verbunden ist.

Wenn eine oder mehrere Datenquellen verbunden sind, verwendet das Makro die Count-Eigenschaft , um zu bestimmen, wie viele Datenquellen verbunden sind.

Wenn nur eine Datenquelle verbunden ist, gibt das Makro den Namen dieser Datenquelle im Direktfenster aus. Wenn mehr als eine Datenquelle verbunden ist, verwendet das Makro die Item-Methode , um die Auflistung zu durchlaufen, und die MailMergeDataSource.Name-Eigenschaft , um den Namen jeder verbundenen Datenquelle im Direktfenster auszugeben.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.