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 对象来处理个别内容控件。 有关详细信息，请参阅处理内容控件。
方法
| 名称 |
|---|
| Add |
| 项 |
属性
| 名称 |
|---|
| Application |
| Count |
| Creator |
| Parent |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。