Positionsrahmen automatisch auf der letzten Seite

1 Antworten zu dieser Frage

1. Antwort von nach einem Tag 0 hilfreich

   Re: Positionsrahmen automatisch auf der letzten Se

   Hallo, ich habe in Word 2010 einen Positionsrahmen so angelegt, dass
   er auf der Seite ganz unten ist. Ich würde aber gern
   einstellen, dass dieser Positionsrahmen immer auf der letzten
   Seite des gesamten Dokumentes ist. Wie geht das?
   Etwa so?
   
   Dim objWord As Object
   Dim rng As Range
   Dim myFrame As Frame
   
   Set objWord = CreateObject("Word.Application")
   objWord.Documents.Add
   Set rng = objWord.ActiveDocument.Range.Paragraphs.Last.Range
   rng.InsertAfter vbCr
   Set rng = objWord.ActiveDocument.Range.Paragraphs.Last.Range
   Set myFrame = ActiveDocument.Frames.Add(Range:=ActiveDocument.Range.Paragraphs.Last.Range)
   
   Das Makro fügt hinter dem letzen Absatz des Dokuments einen neuen Absatz ein und fügt in diesen einen Positionsrahmen (Frame) ein.
   
   MfG,
   
   ujk