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)
Nota:
[!NOTA] Dependiendo de cómo tener acceso a la colección, puede cambiar la colección devuelta. Por ejemplo, si tiene acceso a una colección de bloques de creación con un de tipo wdTypeAutoText con una categoría de "General", la colección devuelta sea distinta de la colección devuelta si tiene acceso a una colección de bloques de creación con un de tipo wdTypeAutoText con una categoría de "Personalizar". También es diferente de la colección devuelta si tiene acceso a la colección de bloques de creación con un tipo wdTypeCustomAutoText con una categoría de "General". Por lo tanto, el primer elemento de una colección que se tiene acceso desde la colección BuildingBlockEntries puede ser diferente del primer elemento de la colección que se tiene acceso desde la colección BuildingBlocks.
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
Propiedades
Vea también
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.