Classe BuildingBlockEntries (Word VBA)

A classe BuildingBlockEntries representa uma coleção de todos os objetos BuildingBlock em um modelo. Para usar uma variável de classe BuildingBlockEntries, ela primeiro precisa ser instanciada por exemplo

Dim bbes as BuildingBlockEntries
Set bbes = CustomizationContext.BuildingBlockEntries

For Each

Aqui está um exemplo de processamento dos itens BuildingBlockEntries em uma coleção.

Dim bbkBuildingBlockEntry As BuildingBlock
For Each bbkBuildingBlockEntry In CustomizationContext.BuildingBlockEntries
	
Next bbkBuildingBlockEntry

Add

Cria uma nova entrada de bloco de construção em um modelo e retorna um objeto BuildingBlock que representa a nova entrada do bloco de construção.

Add (Name, Type, Category, Range, Description, InsertOptions)

Dim objTemplate As Template 
Dim objBB As BuildingBlock 
 
Set objTemplate = ActiveDocument.AttachedTemplate 
Set objBB = objTemplate.BuildingBlockEntries.Add("Author Name", _ 
 wdTypeCustomTextBox, "Custom", 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.

Type (WdBuildingBlockTypes) - Especifica o tipo de bloco de construção para criar. Corresponde à propriedade Type do objeto BuildingBlock.

Aqui você pode encontrar os valores possíveis para WdBuildingBlockTypes

Category (String) - Especifica a categoria da nova entrada de bloco de construção. Corresponde à propriedade Category 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 BuildingBlockEntries. Somente leitura Long.

Dim lngCount As Long
lngCount = CustomizationContext.BuildingBlockEntries.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 bbkBuildingBlockEntry As BuildingBlock
Set bbkBuildingBlockEntry = CustomizationContext.BuildingBlockEntries(Index:=1)