Hallo zusammen,
ich habe diverse Schnellbausteine, die ich an verschiedenen Stellen (nicht hintereinander) einfügen möchte. Unter Anderem auch in der Fusszeile.
Wie kann ich diese Range ansprechen/definieren, sodaß ich im VBA dann die entsprechenden Schnellbausteine an die richtige Stelle/Range platzieren kann?
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
funktioniert leider so nicht.. :-(
Danke,
Andreas
|