Compartir a través de

Crear una galería de bloques de creación personalizada

  • Artículo

Una galería de bloques de creación es una colección de bloques de creación del mismo tipo. Hay 32 tipos distintos de colecciones de bloques de creación que puede crear (utilizando la enumeración WdBuildingBlockTypes ). Cada uno de estos tipos es una galería. Word proporciona algunas de estas galerías como colecciones de bloques de creación integradas, pero la mayoría de ellas se proporcionan para que pueda organizar sus propios bloques de creación.

Para proporcionar una mayor flexibilidad a las galerías personalizadas, puede crear categorías dentro de cada galería para organizar aún mejor sus bloques de creación personalizados.

Los objetos usados en este ejemplo son:

Muestra

En el siguiente ejemplo se crea una galería de bloques de creación que contiene tres bloques de creación.

Nota:

[!NOTA] En este ejemplo se supone que hay al menos tres párrafos en el documento.

Sub CreateBuildingBlockGallery() 
 Dim objTemplate As Template 
 Dim conType As WdBuildingBlockTypes 
 Dim objRange As Range 
 
 Set objTemplate = ActiveDocument.AttachedTemplate 
 conType = wdTypeCustom1 
 
 Set objRange = ActiveDocument.Paragraphs(1).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 1", conType, "Main Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(2).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 2", conType, "Secondary Headings", objRange 
 
 Set objRange = ActiveDocument.Paragraphs(3).Range 
 objTemplate.BuildingBlockEntries.Add _ 
 "Heading 3", conType, "Tertiary Headings", objRange 
End Sub

Consulte 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.