Clase BuildingBlockEntries (Word VBA)
La clase BuildingBlockEntries representa una colección de todos los objetos BuildingBlock de una plantilla. Para usar una variable de clase BuildingBlockEntries, primero debe ser instanciado, por ejemplo
Dim bbes as BuildingBlockEntries
Set bbes = CustomizationContext.BuildingBlockEntries
For Each
A continuación, se muestra un ejemplo de cómo procesar los elementos BuildingBlockEntries en una colección.
Dim bbkBuildingBlockEntry As BuildingBlock
For Each bbkBuildingBlockEntry In CustomizationContext.BuildingBlockEntries
Next bbkBuildingBlockEntry
Add
Crea una nueva entrada de bloque de creación en una plantilla y devuelve un objeto BuildingBlock que representa la nueva entrada de bloque de creación.
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
Estos son los argumentos con nombre :
Name (String) - Especifica el nombre de la entrada de bloque de creación.
Type (WdBuildingBlockTypes) - Especifica el tipo de bloque de creación para crear.
Aquí puede ver valores posibles para
Category (String) - Especifica la categoría de la nueva 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 BuildingBlockEntries.
Dim lngCount As Long
lngCount = CustomizationContext.BuildingBlockEntries.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 bbkBuildingBlockEntry As BuildingBlock
Set bbkBuildingBlockEntry = CustomizationContext.BuildingBlockEntries(Index:=1)