Schnell zum Seitenanfang/Seitenende springen

Die folgenden beiden Makros stellen Funktionen zur Verfügung, mit denen man schnell zum Seitenanfang bzw. zum Seitenende springen kann.

Mit Hilfe der integrierten Textmarke (\Page) erhaltet Ihr Zugriff auf die aktuelle Seite. Bei Verwendung der Range-Eigenschaft dieser Textmarke erhaltet Ihr ein Range-Objekt von dieser Seite zurück. Über die Start- und End-Eigenschaften des Range-Objektes kann man dann auf das erste und letzte Zeichen dieses Bereiches zugreifen. Da das letzte Zeichen quasi den Seitenwechsel darstellt, man aber zum letzten Zeichen auf der Seite gelangen möchte, muss das Range-Objekt um ein Zeichen reduziert werden.
Anschließend wird der Range-Bereich auf das erste bzw. vorletzte Zeichen reduziert und dieser reduzierte Bereich markiert. Damit steht die Eingabemarke dann vor dem ersten bzw. letzten Zeichen der aktuellen Seite.

Zum Seitenfang springen:

Sub GeheZumSeitenanfang()  
Dim rng As Range
Set rng = Selection.Bookmarks("\Page").Range
rng.SetRange rng.Start, rng.Start
rng.Select
Set rng = Nothing
End Sub 

und für das Seitenende:

Sub GeheZumSeitenende()  
Dim rng As Range
Set rng = Selection.Bookmarks("\Page").Range
rng.SetRange rng.End - 1, rng.End - 1
rng.Select
Set rng = Nothing
End Sub 

Wenn Ihr Euch diese Makros in einer zentralen Vorlage speichert und mit entsprechenden Tastenkombination belegt, könnt Ihr so schnell zwischen Anfang und Ende einer Seite springen.