Word) (ContentControlListEntry.Text 属性

返回或设置一个 字符串 ，表示下拉列表或组合框内容控件列表项的显示文本。 读/写。

语法

表达式。文本

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

备注

列表中的项必须具有唯一的显示名称。 试图将 Text 属性更改为条目列表中已存在的字符串，将引发运行时错误。

示例

以下示例将每个列表项的显示文本中的第一个字符（如果是小写）变为大写。

Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim strFirst As String 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or objCC.Type = wdContentControlDropdownList Then 
 For Each objLE In objCC.DropdownListEntries 
 strFirst = Left(objLE.Text, 1) 
 
 If strFirst = LCase(strFirst) Then 
 objLE.Text = UCase(strFirst) & Right(objLe.Text, Len(objLe.Text) - 1) 
 End If 
 Next 
 End If 
Next

以下示例基于显示文本的内容来设置列表项的值。

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

另请参阅

ContentControlListEntry 对象

支持和反馈

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