Метод ContentControls.Add (Word)

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

Синтаксис

expression. Add (Type, Range)

выражение Выражение, возвращающее объект ContentControls .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Type	Необязательный	WdContentControlType	Указывает тип элемента управления содержимым для вставки в активный документ. Если этот параметр опущен, microsoft Word вставляет элемент управления с содержимым в формате форматированного текста.
Range	Необязательный	Variant	Указывает место в активном документе для размещения элемента управления содержимым. Если этот параметр опущен, Word помещает элемент управления содержимым в положение точки вставки или заменяет текущее выделение.

Возвращаемое значение

ContentControl

Замечания

Элементы управления содержимым можно вложить только в элементы управления содержимым в формате форматированного текста, элементы управления содержимым коллекции стандартных блоков и элементы управления содержимым группы. Если точка вставки или текущий выделенный фрагмент находятся внутри элемента управления содержимым другого типа, этот метод вызывает ошибку. В этом случае можно переместить точку вставки или использовать параметр Range, чтобы указать расположение в документе.

Пример

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

Dim objCC As ContentControl 
 
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"

См. также

Коллекция ContentControls

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

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