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

avogt · #1 04-26-2018, 01:35 AM

Hello,

I want to add building blocks in my Word Document by VBA.
How can I place them correctly?

How can I place them in the footer?

Code:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
        ActiveDocument.Range(ActiveDocument.Bookmarks("start").Range.Start + 1, ActiveDocument.Bookmarks("ende").Range.Start).Select
        Set objTemplate = Templates(1)
        Set objBB = objTemplate.BuildingBlockEntries.Item("Fusszeile_geschäftlich_DE")
        objBB.Insert Selection.Range
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

does not work.. :-(

Thanks,
Andreas

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