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


Объект BuildingBlock (Word)

Представляет стандартный блок в шаблоне. Стандартный блок — это предварительно созданное содержимое, похожее на автотекст, которое может содержать текст, изображения и форматирование.

Замечания

Каждый объект BuildingBlock является членом коллекций BuildingBlocks и BuildingBlockEntries . Стандартные блоки хранятся в шаблонах Microsoft Word. Поэтому для доступа к стандартным блокам, доступным для документа, необходимо получить доступ к присоединенному шаблону. Встроенные стандартные блоки хранятся в шаблоне "Стандартные блоки.dotx".

Используйте метод Item коллекции или BuildingBlocks , чтобы вернуть отдельный стандартный блок. В следующем примере показано обращение к первому стандартному блоку в первом шаблоне в коллекции Templates .

Dim objTemplate As Template 
Dim objBB As BuildingBlock 
 
Set objTemplate = Templates(1) 
Set objBB = objTemplate.BuildingBlockEntries.Item(1)

Примечание.

В зависимости от того, как вы обращаетесь к коллекции, возвращаемая коллекция может измениться. Например, если вы обращаетесь к коллекции стандартных блоков с типом wdTypeAutoText с категорией "Общие", возвращаемая коллекция может отличаться от возвращаемой коллекции, если вы обращаетесь к коллекции стандартных блоков с типом wdTypeAutoText с категорией "Custom". Он также отличается от коллекции, возвращаемой при доступе к коллекции стандартных блоков с типом wdTypeCustomAutoText с категорией "Общие". Таким образом, первый элемент в коллекции, доступ к который получен из коллекции BuildingBlockEntries , может отличаться от первого элемента в коллекции, доступ к который получен из коллекции BuildingBlocks .

Чтобы создать новый стандартный блок, можно использовать метод Add для коллекции BuildingBlockEntries или BuildingBlocks . Однако рекомендуется создать новый стандартный блок с помощью метода Add для коллекции BuildingBlockEntries . В следующем примере выделенный текст добавляется в коллекцию стандартных блоков водяных знаков первого шаблона в коллекции Templates .

Dim objTemplate As Template 
Dim objBB As BuildingBlock 
 
Set objTemplate = Templates(1) 
 
Set objBB = objTemplate.BuildingBlockEntries _ 
 .Add(Name:="New Building Block Entry", _ 
 Type:=wdTypeWatermarks, _ 
 Category:="General", _ 
 Range:=Selection.Range)

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

Dim objTemplate As Template 
Dim objBB As BuildingBlock 
 
Set objTemplate = Templates(1) 
Set objBB = objTemplate.BuildingBlockEntries.Item(1) 
 
objBB.Insert Selection.Range

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

Dim objTemplate As Template 
 
Set objTemplate = Templates(1) 
 
objTemplate.BuildingBlockEntries(1).Delete

Стандартные блоки упорядочены по категориям и типам. Используйте коллекцию BuildingBlockTypes для доступа к отдельным объектам BuildingBlockType . Используйте коллекцию Categories для доступа к отдельным объектам Category . Затем используйте свойство BuildingBlocks для доступа к коллекции BuildingBlocks для объекта Category . В следующем примере имена типов и категорий всех стандартных блоков в первом шаблоне выводятся в окно интерпретации. (В этом примере предполагается, что окно интерпретации отображается.)

Dim objTemplate As Template 
Dim objBBT As BuildingBlockType 
Dim objCat As Category 
Dim intCount As Integer 
Dim intCountCat As Integer 
 
Set objTemplate = Templates(1) 
 
For intCount = 1 To objTemplate.BuildingBlockTypes.Count 
 Set objBBT = objTemplate.BuildingBlockTypes(intCount) 
 If objBBT.Categories.Count > 0 Then 
 Debug.Print objBBT.Name 
 For intCountCat = 1 To objBBT.Categories.Count 
 Set objCat = objBBT.Categories(intCountCat) 
 Debug.Print vbTab & objCat.Name 
 Next 
 End If 
Next

Каждый стандартный блок имеет свойства, содержащие сведения, которые относятся к нему уникальным образом, например Имя, Описание, Тип и Значение.

Дополнительные сведения о стандартных блоках см. в разделе Работа со стандартными блоками.

Методы

Свойства

См. также

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

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