Seitenzahl der aktuellen Seite
Sie benötigen in Ihrem Code die Seitenzahl der aktuellen Seite, also die Seitenzahl, auf der sich die Einfügemarke befindet? Kein Problem. Dazu bietet VBA beim Selection-Objekt die Eigenschaft Information an. Bei den zugehörigen Parametern finden Sie dann auch die Information zur aktuellen Seite:
001
002
003
004
005
006
007
002
003
004
005
006
007
Sub aktuelle_Seite()
Dim Seite As Long
Seite = Selection.Information(wdActiveEndPageNumber)
End Sub
Dim Seite As Long
Seite = Selection.Information(wdActiveEndPageNumber)
End Sub
|
|
|
|
|
|
||||||
 |
|
|
|
|
|
Für weitere Infos bitte auf den Text klicken
