Objeto BuildingBlock (Word)

Representa un bloque de creación de una plantilla. Un bloque de creación es contenido predefinido, parecido al autotexto, que puede contener texto, imágenes y formato.

Comentarios

Cada objeto BuildingBlock es miembro de las colecciones BuildingBlocks y BuildingBlockEntries. Bloques de creación se almacenan en plantillas de Microsoft Word. Por lo tanto, para tener acceso a los bloques de creación disponibles para un documento, debe tener acceso a una plantilla adjunta. Bloques de creación integrados se almacenan en la plantilla denominada "Building Blocks.dotx".

Utilice el método Item de la colección o la colección BuildingBlocks para devolver un bloque de creación individual. En el ejemplo siguiente se tiene acceso a primer bloque de creación de la primera plantilla del conjunto Templates.

Dim objTemplate As Template 
Dim objBB As BuildingBlock 
 
Set objTemplate = Templates(1) 
Set objBB = objTemplate.BuildingBlockEntries.Item(1)

Para crear un nuevo bloque de creación, puede utilizar el método Add para la colección BuildingBlockEntries o BuildingBlocks. Sin embargo, la forma recomendada para crear un nuevo bloque de creación es mediante el método Add para la colección BuildingBlockEntries. En el ejemplo siguiente se agrega el texto seleccionado a la Galería de bloques de creación de marcas de agua de la primera plantilla del conjunto Templates.

Dim objTemplate As Template 
Dim objBB As BuildingBlock 
 
Set objTemplate = Templates(1) 
 
Set objBB = objTemplate.BuildingBlockEntries _ 
 .Add(Name:="New Building Block Entry", _ 
 Type:=wdTypeWatermarks, _ 
 Category:="General", _ 
 Range:=Selection.Range)

Use el método Insert para insertar un nuevo bloque de creación en un documento. En el siguiente ejemplo, se inserta el primer bloque de creación en la primera plantilla del documento activo en el punto de inserción.

Dim objTemplate As Template 
Dim objBB As BuildingBlock 
 
Set objTemplate = Templates(1) 
Set objBB = objTemplate.BuildingBlockEntries.Item(1) 
 
objBB.Insert Selection.Range

Utilice el método Delete para quitar un bloque de creación de una plantilla. En el ejemplo siguiente se elimina el primer bloque de creación de la primera plantilla del conjunto Templates.

Dim objTemplate As Template 
 
Set objTemplate = Templates(1) 
 
objTemplate.BuildingBlockEntries(1).Delete

Bloques de creación se organizan por categoría y tipo. Utilice la colección BuildingBlockTypes para tener acceso a objetos BuildingBlockType individuales. Utilice la colección Categories para tener acceso a objetos Category individuales. A continuación, use la propiedad BuildingBlocks para tener acceso a la colección BuildingBlocks de un objeto Category . En el siguiente ejemplo, se imprimen los nombres de tipo y categoría de todos los bloques de creación de la primera plantilla en la ventana Inmediato. (En este ejemplo se supone que está visible la Ventana Inmediato.)

Dim objTemplate As Template 
Dim objBBT As BuildingBlockType 
Dim objCat As Category 
Dim intCount As Integer 
Dim intCountCat As Integer 
 
Set objTemplate = Templates(1) 
 
For intCount = 1 To objTemplate.BuildingBlockTypes.Count 
 Set objBBT = objTemplate.BuildingBlockTypes(intCount) 
 If objBBT.Categories.Count > 0 Then 
 Debug.Print objBBT.Name 
 For intCountCat = 1 To objBBT.Categories.Count 
 Set objCat = objBBT.Categories(intCountCat) 
 Debug.Print vbTab & objCat.Name 
 Next 
 End If 
Next

Cada bloque de creación tiene propiedades que contienen información que sólo se aplican a él, como Name, Description, Type y Value.

Para obtener más información sobre bloques de creación, vea Trabajar con bloques de creación.

Métodos

• Delete
• Insert

Propiedades

• Application
• Categoría
• Creator
• Descripción
• Id.
• Índice
• InsertOptions
• Name
• Parent
• Tipo
• Valor

Vea también

• Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.