通过

ContentControlListEntry.Text 属性 (Word)

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

语法

表达式。发短信

表达 返回 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。

  • Last updated on