Создание пользовательской коллекции стандартных блоков

Коллекция стандартных блоков — это коллекция стандартных блоков одного типа. Существует 32 различных типа коллекций стандартных блоков, которые можно создать (с помощью перечисления WdBuildingBlockTypes ). Каждый из этих типов является коллекцией. Word предоставляет некоторые из этих коллекций как встроенные коллекции стандартных блоков, но большинство из них предоставляются для организации собственных стандартных блоков.

Чтобы обеспечить дополнительную гибкость пользовательских коллекций, можно создать категории в каждой коллекции, чтобы дополнительно упорядочить пользовательские стандартные блоки.

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

• Шаблон

• Диапазон

• BuildingBlockEntries

• BuildingBlock

Пример

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

Примечание.

В этом примере предполагается, что в документе есть по крайней мере три абзаца.

Sub CreateBuildingBlockGallery() 
 Dim objTemplate As Template 
 Dim conType As WdBuildingBlockTypes 
 Dim objRange As Range 
 
 Set objTemplate = ActiveDocument.AttachedTemplate 
 conType = wdTypeCustom1 
 
 Set objRange = ActiveDocument.Paragraphs(1).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 1", conType, "Main Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(2).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 2", conType, "Secondary Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(3).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 3", conType, "Tertiary Headings", objRange 
End Sub

См. также

• Работа со стандартными блоками

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

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