Publisher) (MailMergeDataSources 物件

代表使用中 Microsoft Publisher 檔中所有 MailMergeDataSource 物件的集合，每個物件都代表合併列印作業中的其中一個資料來源。

註解

MailMergeDataSources集合的預設成員是Item方法，它會在您指定的索引位置傳回MailMergeDataSource物件。

如果使用中文件內的單一 MailMergeDataSource 物件， MailMergeDataSources 集合是空的。 在此情況下，如果您嘗試取得MailMergeDataSource物件的DataSources屬性值，Publisher 會傳回錯誤。

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集會顯示如何在使用中文件中取得 MailMergeDataSources 集合中的所有連接的資料來源的名稱。 它會使用使用中文件的 IsDataSourceConnected 屬性來判斷是否連接資料來源。

如果連接一個或多個資料來源，巨集就會使用 MailMergeDataSources 集合的 Count 屬性來判斷多少資料來源連線。

如果只連接一個資料來源，宏會在 [即時運算] 視窗中列印該資料來源的名稱。 如果連接多個資料來源，它會使用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

方法

• 項目

屬性

• 應用程式
• 數目
• Creator
• Parent

另請參閱

• Publisher 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。