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. 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. |
Besucher: 0 online | 0 heute | 0 diesen Monat | 2227136 insgesamt | Seitenaufrufe: 40 | Letzte Änderung: 27.09.2007 | © 2001-18 Christian Freßdorf | ||||
Jedes Kind ist ein Künstler. Das Problem ist nur, wie man einer bleibt, wenn man erwachsen wird. Pablo Picasso, 1881-1973, span. Maler, Graphiker und Bildhauer |
powered by phpCMS and PAX |