创建自定义构建基块库

构建基块库是相同类型的构建基块的集合。 可以使用 WdBuildingBlockTypes 枚举) 创建 (32 种不同类型的构建基块集合。 每种类型就是一个库。 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。