Метод 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"
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.