Объект ContentControlListEntry (Word)

Объект ContentControlListEntry представляет элемент списка в раскрывающемся списке или элементе управления содержимым поля со списком. Объект ContentControlListEntry является членом коллекции ContentControlListEntries для объекта ContentControl.

Замечания

Используйте метод Add коллекции ContentControlListEntries , чтобы создать объект ContentControlListEntry . Используйте метод Item или DropdownListEntries (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 для поиска сведений о продукте в базе данных. Кроме того, значение свойства 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
Index
Parent
Text
Value

См. также

Справочник по объектной модели Word

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.