Объект ContentControls (Word)

Статья
04/07/2023

Коллекция объектов ContentControl . Элементы управления контентом — это связанные и, возможно, помеченные фрагменты документа, выполняющие роль контейнеров для определенных типов содержимого. Отдельные элементы управления содержимым могут содержать такое содержимое, как даты, списки или абзацы форматированного текста.

Замечания

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

Dim objcc As ContentControl 
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" 
objcc.DropdownListEntries.Add "Other"

Используйте метод Item для доступа к определенному элементу управления содержимым в коллекции. В следующем примере осуществляется доступ к третьему элементу управления содержимым в активном документе. Если элемент управления является раскрывающимся списком или полем со списком, первый элемент перемещается в нижнюю часть списка, а последний — в начало списка.

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

Используйте объект ContentControl для работы с отдельными элементами управления содержимым. Дополнительные сведения см. в разделе Работа с элементами управления содержимым.

Методы

Имя
Add
Элемент

Свойства

Имя
Application
Count
Creator
Parent

См. также

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

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

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

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