Classe BuildingBlocks (Word VBA)

A classe BuildingBlocks representa uma coleção de objetos BuildingBlock para um tipo de bloco de construção e categoria específicos em um modelo. Para usar uma variável de classe BuildingBlocks, ela primeiro precisa ser instanciada por exemplo

Dim bbs as BuildingBlocks
Set bbs = CustomizationContext.BuildingBlockEntries(1).Category.BuildingBlocks

Add

Cria um novo bloco de construção e retorna um objeto BuildingBlock .

Add (Name, Range, Description, InsertOptions)

Dim objTemplate As Template 
 
Set objTemplate = Templates(1) 
 
objTemplate.BuildingBlockTypes(wdTypeAutoText) _ 
 .Categories("General").BuildingBlocks _ 
 .Add Name:="New Building Block", _ 
 Range:=Selection.Range

Arguments

O seguinte argumento é opcional

Name (String) - Especifica o nome da entrada de bloco de construção. Corresponde à propriedade de nome do objeto BuildingBlock.

Range (Range) - Especifica o valor da entrada de bloco de buildling. Corresponde à propriedade Value do objeto BuildingBlock.

Optional arguments

Os seguintes argumentos são opcionais

Description (String) - Especifica a descrição da entrada de bloco de buildling. Corresponde à propriedade Descrição do objeto BuildingBlock.

InsertOptions (WdDocPartInsertOptions) - Especifica se a entrada de bloco de construção é inserida como uma página, um parágrafo ou embutida. Se for omitido, o valor padrão é wdInsertContent. Corresponde à propriedade InsertOptions do objeto BuildingBlock.

Os valores de retorno possíveis são wdInsertContent - Bloco de construção embutido, wdInsertPage - Bloco de construção de nível de página, wdInsertParagraph - Bloco de construção de nível de parágrafo.

Count

Retorna o número de itens na coleção BuildingBlocks. Somente leitura Long.

Dim lngCount As Long
lngCount = CustomizationContext.BuildingBlockEntries(1).Category.BuildingBlocks.Count

Item

Retorna um objeto BuildingBlock que representa o item especificado na coleção.

Item (Index)

Index: Especifica uma cadeia de caracteres ou um inteiro que representa o nome ou a posição ordinal do objeto na coleção.

Dim bbk As BuildingBlock
Set bbk = CustomizationContext.BuildingBlockEntries(1).Category.BuildingBlocks(Index:=1)