通过

ContentControls.Add 方法 (Word)

  • 项目

将指定类型的新内容控件添加到活动文档中，并返回表示新内容控件的 ContentControl 对象。

语法

表达式。添加 (类型、 范围)

表达 返回 ContentControls 对象的表达式。

参数

名称 必需/可选 数据类型 说明
Type 可选 WdContentControlType 指定要插入活动文档中的内容控件的类型。 如果省略它，Microsoft Word 将插入 RTF 内容控件。
Range 可选 Variant 指定内容控件在活动文档中的放置位置。 如果省略它，Word 会将内容控件放在插入点所在位置，或者替换当前所选内容。

返回值

ContentControl

备注

只能在 RTF 内容控件、生成块库内容控件和组内容控件中嵌套内容控件。 如果插入点或当前所选项在不同类型的内容控件的内部，则此方法将引发错误。 在这种情况下，可以移动插入点，也可以使用 Range 参数来指定文档内的位置。

示例

以下示例创建新的下拉列表内容控件，并在该列表中添加几个项。

Dim objCC As ContentControl 
 
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"

另请参阅

ContentControls 集合

支持和反馈

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