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 |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。