共用方式為

Shape.CatalogMergeItems 屬性 (Publisher)

  • 發行項

會傳回 CatalogMergeShapes 集合，代表目錄合併區域中包含的圖案。 唯讀。

語法

運算式。CatalogMergeItems

表達 代表 Shape 物件的變數。

傳回值

CatalogMergeShapes

註解

除了您選擇的其他設計項目之外，型錄合併列印區域還可以包含您已插入的圖片和文字資料欄位。

範例

下列範例會測試指定出版物中是否有任何頁面包含型錄合併列印區域，如果包含，則會傳回它所包含的圖案清單。

Sub ListCatalogMergeAreaContents() 
 
 Dim pgPage As Page 
 Dim mmLoop As Shape 
 Dim intCount As Integer 
 
 For Each pgPage In ThisDocument.Pages 
 For Each mmLoop In pgPage.Shapes 
 
 If mmLoop.Type = pbCatalogMergeArea Then 
 
 With mmLoop.CatalogMergeItems 
 For intCount = 1 To .Count 
 Debug.Print "Shape ID: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).ID 
 Debug.Print "Shape Name: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).Name 
 Next 
 End With 
 
 End If 
 
 Next mmLoop 
 Next pgPage 
 
End Sub

支援和意見反應

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