Während Sie Ihre Makros programmieren, müssen Sie möglicherweise die aktuelle Seitenzahl kennen, auf der sich die Einfügemarke befindet. Dies können Sie leicht erreichen, indem Sie eine der folgenden Codezeilen in Ihrem Makro verwenden:

CurPage = Selection.Information(wdActiveEndAdjustedPageNumber)

CurPage = Selection.Information(wdActiveEndPageNumber)

Dieser Code setzt CurPage auf die aktuelle Seitenzahl. Wenn Sie das Formular mit wdActiveEndAdjustedPageNumber verwenden, ist CurPage eine logische Seitennummer und keine physische Seitennummer. Der Unterschied besteht darin, dass logische Seitenzahlen manuelle Anpassungen berücksichtigen, die möglicherweise am Dokument vorgenommen wurden. Zum Beispiel, wenn der Benutzer Word angewiesen hat, Seiten mit einem anderen Wert als 1 zu zählen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13013) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Bestimmen der aktuellen Seitenzahl.