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
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
varIndex | Erforderlich | Variant | Die Indexnummer oder der Name des zurückzugebenden Objekts. |
Rückgabewert
MailMergeDataSource
Hinweise
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.