将内容控件插入构建基块

构建基块和内容控件非常灵活。 您可以创建包含内容控件的构建基块，或者创建使用构建基块向用户展示丰富选择内容的内容控件。 本主题介绍如何将内容控件插入构建基块，随后用户可以将该构建基块插入文档中。

以下示例中所用对象如下：

• Template

• BuildingBlock

• Range

• ContentControl

以下代码将内容控件插入活动文档中，然后将该内容控件添加到活动文档所附加模板中的构建基块集合中。

Sub InsertContentControlIntoBuildingBlock() 
 Dim objCC As ContentControl 
 Dim objBB As BuildingBlock 
 Dim objTemplate As Template 
 Dim objRange As Range 
 
 Set objTemplate = ActiveDocument.AttachedTemplate 
 Set objCC = ActiveDocument.Range.ContentControls _ 
 .Add(wdContentControlComboBox) 
 
 objCC.DropdownListEntries.Add "Outstanding" 
 objCC.DropdownListEntries.Add "Good" 
 objCC.DropdownListEntries.Add "Fair" 
 
 Set objRange = ActiveDocument.Range 
 Set objBB = objTemplate.BuildingBlockEntries.Add("OGF Rating Scale", _ 
 wdTypeCustom1, "Ratings", objRange) 
End Sub

另请参阅

• 使用构建基块
• 使用内容控件

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。