Свойство ContentControlListEntry.Text (Word)

Статья
04/07/2023

Возвращает или задает значение String , представляющее отображаемый текст элемента списка для раскрывающегося списка или элемента управления содержимым поля со списком. Для чтения и записи.

Синтаксис

expression. Текст

Выражение Выражение, возвращающее объект 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 и обратная связь.

Поделиться через