Objeto BuildingBlock (Word)
Representa um bloco de construção em um modelo. Um bloco de construção é um conteúdo pré-incorporado, similar ao autotexto, que pode conter texto, imagens e formatação.
Cada objeto BuildingBlock é membro das coleções BuildingBlocks e BuildingBlockEntries. Blocos de construção são armazenados em modelos do Microsoft Word. Portanto, para acessar os blocos de construção disponíveis para um documento, você precisa acessar um modelo anexado. Blocos de construção internos são armazenados no modelo denominado "Criando Blocks".
Use o método Item da coleção BuildingBlocks ou a coleção para retornar um bloco de construção individual. O exemplo a seguir acessa o primeiro bloco de construção no primeiro modelo da coleção Templates.
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries.Item(1)
Observação
[!OBSERVAçãO] Dependendo de como você pode acessar a coleção, a coleção retornada pode ser alteradas. Por exemplo, se você acessar uma coleção de blocos de construção com um tipo de wdTypeAutoText com uma categoria de "General", a coleção retornada pode ser diferente da coleção retornada se você acessar uma coleção de blocos de construção com um tipo de wdTypeAutoText com uma categoria de "Custom". Também é diferente da coleção retornada se você acessa a coleção de blocos de construção com um tipo de wdTypeCustomAutoText com uma categoria de "General". Portanto, o primeiro item em uma coleção acessada a partir da coleção BuildingBlockEntries pode ser diferente do primeiro item na coleção acessada a partir da coleção BuildingBlocks.
Para criar um novo bloco de construção, você pode usar o método Add da coleção BuildingBlockEntries ou da coleção BuildingBlocks. Entretanto, a maneira recomendada de criar um novo bloco de construção é, usando o método Add da coleção BuildingBlockEntries. O exemplo a seguir adiciona texto selecionado na Galeria do bloco de construção marcas d'água do primeiro modelo da coleção 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 o método Insert para inserir um novo bloco de construção em um documento. O exemplo a seguir insere o primeiro bloco de construção no primeiro modelo no documento ativo no Ponto de Inserção.
Dim objTemplate As Template
Dim objBB As BuildingBlock
Set objTemplate = Templates(1)
Set objBB = objTemplate.BuildingBlockEntries.Item(1)
objBB.Insert Selection.Range
Use o método Delete para remover um bloco de construção a partir de um modelo. O exemplo a seguir exclui o primeiro bloco de construção no primeiro modelo na coleção Templates.
Dim objTemplate As Template
Set objTemplate = Templates(1)
objTemplate.BuildingBlockEntries(1).Delete
Blocos de construção são organizados por categoria e tipo. Use a coleção BuildingBlockTypes para acessar os objetos BuildingBlockType individuais. Use o conjunto Categories para acessar objetos individuais da categoria. Em seguida, use a propriedade BuildingBlocks para acessar a coleção BuildingBlocks para um objeto Category . O exemplo a seguir imprime os nomes de tipo e categoria de todos os blocos de construção no primeiro modelo para a janela Immediate. (Este exemplo pressupõe que a Janela Immediate estiver visível.)
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 bloco de construção tem propriedades que contém informações aplicáveis exclusivamente a ele, como Name, Description, Type, e Value.
Para obter mais informações sobre os blocos de construção, consulte Trabalhando com blocos de construção.
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.