ContentControls 对象 (Word)

ContentControl 对象的集合。 内容控件是文档中绑定的、有可能添加标签的区域，它们充当特定类型的内容的容器。 单个内容控件可能包含诸如日期、列表或格式化文本段落等内容。

备注

使用 Add 方法可以创建新的内容控件，并将它插入文档中。 以下示例创建新的下拉列表内容控件，并在该列表中添加几个项。

Dim objcc As ContentControl 
Dim objMap As XMLMapping 
 
Set objcc = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
objcc.Title = "My Favorite Animal" 
If objcc.ShowingPlaceholderText Then _ 
 objcc.SetPlaceholderText , , "Select your favorite animal " 
 
'List entries 
objcc.DropdownListEntries.Add "Cat" 
objcc.DropdownListEntries.Add "Dog" 
objcc.DropdownListEntries.Add "Horse" 
objcc.DropdownListEntries.Add "Monkey" 
objcc.DropdownListEntries.Add "Snake" 
objcc.DropdownListEntries.Add "Other"

使用 Item 方法可以访问集合中的特定内容控件。 以下示例访问活动文档中的第三个内容控件，如果控件是下拉列表或组合框，则将第一项移到列表底部，将最后一项移动到列表顶部。

Dim objcc As ContentControl 
Dim objLE1 As ContentControlListEntry 
Dim objLE2 As ContentControlListEntry 
Dim intCount As Integer 
 
Set objcc = ActiveDocument.ContentControls.Item(3) 
 
If objcc.Type = wdContentControlComboBox Or _ 
 objcc.Type = wdContentControlDropdownList Then 
 
 'First item in the list. 
 Set objLE1 = objcc.DropdownListEntries.Item(1) 
 
 'Last item in the list. 
 Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count) 
 
 For intCount = 1 To objcc.DropdownListEntries.Count 
 'Move the first item down one. 
 objLE1.MoveDown 
 
 'Move the last item up one. 
 objLE2.MoveUp 
 Next 
 
End If

使用 ContentControl 对象来处理个别内容控件。 有关详细信息，请参阅处理内容控件。

方法

属性

另请参阅

Word 对象模型参考

支持和反馈

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