Word VBA Absatz und Seitenumbruch

[zer0core]

Hallo Leute,

ich möchte in einem Geschäftsbrief mit VBA einen Seitemumbruch einfügen.
Dieser soll automatisch vor dem letzten Absatz vor der Unterschriftenzeile eingefügt werden.

ich habe eine Vorlage aber die funktioniert leider nicht ganz.

  Selection.EndKey Unit:=wdStory
  l = Selection.Information(wdActiveEndPageNumber)
    
  If l > 1 Then
        
    Selection.HomeKey Unit:=wdStory
    
    For i = 0 To 15
      Set myrange = Selection.Range
      myrange.SetRange Start:=myrange.Start, End:=myrange.End + 1
      If myrange <> Chr(13) Then
        Selection.MoveDown Unit:=wdLine, Count:=1
      Else
        Exit For
      End If
    Next i

    Selection.Find.ClearFormatting
    Selection.InsertBreak
        
  End If

ich hoffe ihr könnt mir helfen, wie ich den letzten Absatz auf der Seite finden kann.

Danke und LG

 

[cumulonimbus8]

Um mich aus dem Fenster zu lehnen: Word ist zu dumm für solche trivialen Aktionen.

VBA hat keine sinnvolle Handhabe was eine Seite ist. Fragen wie viele Absätze oder Zeichen auch Seite XY sind kann es nicht zurückliefern.

CN8