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: 2 online | 27 heute | 1835 diesen Monat | 686675 insgesamt | Seitenaufrufe: 100 | Letzte Änderung: 27.09.2007 | © 2001-18 Christian Freßdorf | ||||
Was ist der Unterschied zwischen einer Dame und einem Diplomaten? -- Sagt ein Diplomat "ja", meint er "vielleicht", sagt er "vielleicht", meint er "nein", und sagt er "nein", ist er kein Diplomat. -- Sagt eine Dame "nein", meint sie "vielleicht", sagt sie "vielleicht", meint sie "ja", und sagt die "ja", ist sie keine Dame. Charles Maurice de Talleyrand, 1754-1838, frz. Staatsmann |
powered by phpCMS and PAX |