ContentControlListEntry 对象 (Word)

ContentControlListEntry 对象表示下拉列表或组合框内容控件中的列表项。 ContentControlListEntry 对象是 ContentControl 对象的 ContentControlListEntries 集合的成员。

备注

使用 ContentControlListEntries 集合的 Add 方法创建新的 ContentControlListEntry 对象。 使用 Item 方法或 下拉列表ListEntries (Index) （其中 Index 是内容控件列表项的序号位置）访问 ContentControlListEntries 集合中的单个列表项。

注意

[!注释] 列表中的项必须具有唯一的显示名称。 尝试添加已存在的列表项将引发运行时错误。

下面的代码示例使用 Add 方法在新的下拉列表内容控件，添加几个列表项，然后使用 Item 方法访问列表中的第三项并更改显示文本。

Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim objMap As XMLMapping 
 
Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
 
'List items 
objCC.DropdownListEntries.Add "Cat" 
objCC.DropdownListEntries.Add "Dog" 
objCC.DropdownListEntries.Add "Equine" 
objCC.DropdownListEntries.Add "Monkey" 
objCC.DropdownListEntries.Add "Snake" 
objCC.DropdownListEntries.Add "Other" 
 
Set objLE = objCC.DropdownListEntries.Item(3) objLE.Text = "Horse" 

使用 MoveUp 和 MoveDown 方法可以重新安排各项在下拉列表中的位置。 下面的代码示例下移第一项，使它成为列表中的最后一项，然后上移最后一项，使它成为列表中的第一项。

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

使用 Select 方法可以编程方式选择内容控件列表项。 下面的代码示例在活动文档中插入下拉列表内容控件，设置标题和占位符文本并在列表中添加几个项，然后选择输入的最后一项。

Dim objCC As ContentControl 
Dim objCE As ContentControlListEntry 
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" 
 
Set objCE = objCC.DropdownListEntries.Add("Other") 
objCE.Select

使用 Text 属性可以设置为内容控件列表项的显示文本，并使用 Value 属性设置随后可能用于处理窗体的编程值。 例如，您可能的产品列表使用内容控件下拉列表。 Text 属性可能包含产品，显示名称，用户可以很容易地识别和理解的名称。 Value 属性可能包含与数据库中的产品编号对应的产品的产品编号。 然后，可以使用 Value 属性中的产品编号来查找数据库中的产品信息。 值 属性的值也就如果内容控件映射到数据存储区中的 XML 数据发送到自定义 XML 数据。

下面的代码示例基于显示文本的内容设置项目的值。

Dim objCc As ContentControl 
Dim objLe As ContentControlListEntry 
Dim strText As String 
Dim strChar As String 
 
Set objCc = ActiveDocument.ContentControls(3) 
 
For Each objLE In objCC.DropdownListEntries 
 If objLE.Text <> "Other" Then 
 strText = objLE.Text 
 objLE.Value = "My favorite animal is the " & strText & "." 
 End If 
Next

使用 Delete 方法可以从内容控件下拉列表或组合框中删除项目。 下面的代码示例删除其显示文本为"Other"的下拉列表项。

Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 For Each objCL In objCC.DropdownListEntries 
 If objCL.Text = "Other" Then objCL.Delete 
 Next 
 End If 
Next 
 

方法

名称
Delete
MoveDown
MoveUp
Select

属性

名称
Application
Creator
索引
Parent
Text
Value

另请参阅

Word 对象模型参考

支持和反馈

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