Clase BuildingBlocks (Word VBA)

La clase BuildingBlocks representa una colección de objetos BuildingBlock de un tipo y una categoría de bloque de creación específicos de una plantilla. Para usar una variable de clase BuildingBlocks, primero debe ser instanciado, por ejemplo

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

Add

Crea un bloque de creación nuevo y devuelve un 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

Estos son los argumentos con nombre :

Name (String) - Especifica el nombre de la entrada de bloque de creación.

Range (Range) - Especifica el valor de la entrada de bloque básico.

Optional arguments

Los siguientes argumentos son opcionales

Description - String

InsertOptions (WdDocPartInsertOptions) - Especifica si la entrada de bloque de creación se inserta como una página, un párrafo o en línea.

Posibles valores de retorno son wdInsertContent - Bloque de creación entre líneas, wdInsertPage - Bloque de creación de nivel de página, wdInsertParagraph - Bloque de creación de nivel de párrafo.

Count

Devuelve el número de elementos de la colección BuildingBlocks.

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

Item

Devuelve un objeto BuildingBlock que representa el elemento especificado de la colección.

Item (Index)

Index: Especifica una cadena o entero que representa el nombre o la posición ordinal del objeto en la colección.

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