Вставка элемента управления содержимым в стандартный блок

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

В этом примере используются следующие объекты:

• Шаблон

• BuildingBlock

• Диапазон

• ContentControl

Следующий код вставляет элемент управления содержимым в активный документ, а затем добавляет его в коллекцию стандартных блоков в шаблоне, присоединенном к активному документу.

Sub InsertContentControlIntoBuildingBlock() 
 Dim objCC As ContentControl 
 Dim objBB As BuildingBlock 
 Dim objTemplate As Template 
 Dim objRange As Range 
 
 Set objTemplate = ActiveDocument.AttachedTemplate 
 Set objCC = ActiveDocument.Range.ContentControls _ 
 .Add(wdContentControlComboBox) 
 
 objCC.DropdownListEntries.Add "Outstanding" 
 objCC.DropdownListEntries.Add "Good" 
 objCC.DropdownListEntries.Add "Fair" 
 
 Set objRange = ActiveDocument.Range 
 Set objBB = objTemplate.BuildingBlockEntries.Add("OGF Rating Scale", _ 
 wdTypeCustom1, "Ratings", objRange) 
End Sub

См. также

• Работа со стандартными блоками
• Работа с элементами управления содержимым

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

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