Classe BuildingBlock - bloco de construção (Word VBA)

A classe BuildingBlock 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. Para usar uma variável de classe BuildingBlock, ela primeiro precisa ser instanciada por exemplo


Dim bbk as BuildingBlock
Set bbk = CustomizationContext.BuildingBlockEntries(Index:=1)

For Each

Aqui está um exemplo de processamento dos itens BuildingBlock em uma coleção.


Dim bbkBuildingBlockEntry As BuildingBlock
For Each bbkBuildingBlockEntry In CustomizationContext.BuildingBlockEntries
	
Next bbkBuildingBlockEntry

Category

Retorna um objeto Category que representa a categoria de um bloco de construção. Somente leitura.


Dim ctgCategory As Category
Set ctgCategory = CustomizationContext.BuildingBlockEntries(1).Category

Delete

Exclui o bloco de construção especificado.


CustomizationContext.BuildingBlockEntries(1).Delete

Description

Retorna ou define um String que representa a descrição de um bloco de construção. Leitura/gravação.


CustomizationContext.BuildingBlockEntries(1).Description =

ID

Retorna uma cadeia de caracteres que representa o número de identificação interna de um bloco de construção. Somente leitura.

A propriedade ID retorna uma cadeia de caracteres de identificação que está no formato de um GUID.


Dim strID As String
strID = CustomizationContext.BuildingBlockEntries(1).ID

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.


Dim lngIndex As Long
lngIndex = CustomizationContext.BuildingBlockEntries(1).Index

Insert

Insere o valor de um bloco de construção em um documento e retorna um objeto Range que representa o conteúdo do bloco de construção no documento.

Insert (Where, RichText)


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

Arguments

O seguinte argumento é necessário

Where (Range) - O local onde colocar o conteúdo do bloco de construção.

Optional arguments

The following argument is optional

RichText (String) - True insere o bloco de construção como rich text. False insere o bloco de construção como texto simples.

InsertOptions

Retorna ou define um valor Long que representa como inserir o conteúdo de um bloco de construção em um documento. Leitura/gravação.

O valor da propriedade InsertOptions pode ser a constante WdDocPartInsertOptions.


CustomizationContext.BuildingBlockEntries(1).InsertOptions =

Name

Retorna ou define um String que representa o nome de um bloco de construção. Leitura/gravação.


CustomizationContext.BuildingBlockEntries(1).Name =

Type

Retorna um objeto BuildingBlockType que representa o tipo de um bloco de construção. Somente leitura.


Dim bbtType As BuildingBlockType
Set bbtType = CustomizationContext.BuildingBlockEntries(1).Type

Value

Retorna ou define um String que representa o conteúdo de um bloco de construção. Leitura/gravação.


CustomizationContext.BuildingBlockEntries(1).Value =