Criar uma galeria de blocos de construção personalizada

A building block gallery is a collection of building blocks that are of the same type. There are 32 different types of building block collections that you can create (by using the WdBuildingBlockTypes enumeration). Each of these types is a gallery. O Word fornece algumas dessas galerias como coleções internas de blocos de construção, mas a maioria delas é fornecida para que você possa organizar seus próprios blocos de construção.

Para fornecer flexibilidade adicional a suas galerias personalizadas, é possível criar categorias dentro de cada galeria para, posteriormente, organizar seus blocos de construção personalizados.

Os objetos usados neste exemplo são:

• Template

• Range

• BuildingBlockEntries

• Buildingblock

Amostra

O exemplo a seguir cria uma galeria de bloco de construção que contém três blocos de construção.

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

Confira também

• Working with Building Blocks

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.