Thread: how to add building blocks in Word by VBA also in footer
View Single Post
 
Old 04-26-2018, 01:35 AM
avogt avogt is offline Windows 7 64bit Office 2016
Novice
  
Join Date: Apr 2018
Posts: 4
avogt is on a distinguished road
Default how to add building blocks in Word by VBA also in footer
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
Reply With Quote