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)