BuildingBlock.Insert (Word)

Inserts the value of a building block into a document and returns a Range object that represents the contents of the building block within the document.

Syntax : expression.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

The following argument is required

Where (Range) - The location of where to place the contents of the building block.

The following argument is optional

RichText (String) - True inserts the building block as rich, formatted text. False inserts the building block as plain text.