how to add building blocks in Word by VBA also in footer

gmayor · #1 04-26-2018, 06:35 AM

Frankly you can insert building blocks anywhere practical. If you want to insert a sequernce of building blocks at a range then try the following function

Code:

Sub AutoTextToRange(oRng As Range, oTemplate As Template, strAutotext As String)
'oRng is the name of the range to Place
'oTemplate is the template with the autotext - probably ActiveDocument.AttachedTemplate
'strAutotext is the name of the autotext entry
    Set oRng = oTemplate.AutoTextEntries(strAutotext).Insert _
               (Where:=oRng, RichText:=True)
    oRng.Collapse 0
    oRng.Select
lbl_Exit:
    Exit Sub
End Sub

You can call that as many times as you have building blocks to insert. Each time it puts the selection at the end of the building block. The following puts two building blocks consecutively at the cursor.

You could instead insert the first one at a range and the rest will follow.

Code:

AutoTextToRange Selection.Range, ActiveDocument.AttachedTemplate, "BBName1"
AutoTextToRange Selection.Range, ActiveDocument.AttachedTemplate, "BBName2"

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Word - Building Block (AutoText) - Array - Replace Text with Specific Building Blocks	jc491	Word VBA	7	01-03-2016 10:34 PM
Building blocks show correctly in dropdown, but wrong building block populates in doc	wordgirl123	Word	0	10-03-2013 08:30 AM
INSERT building blocks from Quickpart in word	jasserin	Word VBA	0	06-05-2013 12:55 PM
Word - Attach Building Blocks	namedujour	Word	0	04-04-2011 09:59 AM
Word 2007 Building Blocks - difficult to update...	Ian Hunneybell	Word	0	10-19-2009 06:27 AM