建立自訂建置組塊庫

建置組塊庫是由相同類型的建置組塊組成的集合。 有 32 種不同類型的建置組塊集合，您可以使用 WdBuildingBlockTypes 列舉) 來建立 (。 每個類型都是一個建置組塊庫。 Word 提供其中一些資源庫作為內建建置組塊集合，但其中大部分都會提供，讓您可以組織自己的建置組塊。

若要提高自訂建置組塊庫的彈性，您可以在每個建置組塊庫內建立子庫，更進一步組織自訂建置組塊。

此範例中所使用的物件包括：

• Template

• Range

• BuildingBlockEntries

• BuildingBlock

範例

下列範例會建立包含三個建置組塊的建置組塊庫。

注意事項

[!注意事項] 本範例假設文件中至少有三個段落。

Sub CreateBuildingBlockGallery() 
 Dim objTemplate As Template 
 Dim conType As WdBuildingBlockTypes 
 Dim objRange As Range 
 
 Set objTemplate = ActiveDocument.AttachedTemplate 
 conType = wdTypeCustom1 
 
 Set objRange = ActiveDocument.Paragraphs(1).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 1", conType, "Main Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(2).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 2", conType, "Secondary Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(3).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 3", conType, "Tertiary Headings", objRange 
End Sub

另請參閱

• 使用建置組塊

支援和意見反應

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