Seitenzahl des gesamten Dokumentes
Sie wollen wissen, wie die Seitenzahl Ihres gesamten Dokumentes ist? Kein Problem - das kann VBA mit Links. Dazu wird wieder das Selection-Objekt mit der Eingeschaft Information und dem zugehörigen Prameter genutzt:
001
002
003
004
005
006
007
002
003
004
005
006
007
Sub Seiten_gesamt()
Dim Seite As Long
Seite = Selection.Information(wdNumberOfPagesInDocument)
End Sub
Dim Seite As Long
Seite = Selection.Information(wdNumberOfPagesInDocument)
End Sub
Aber vielleicht wollen Sie ja auch nicht mit dem Selection-Objekt arbeiten. Es geht auch noch anders. sie können auch die Dokumenteigenschaften verwenden:
001
002
003
004
005
006
007
008
002
003
004
005
006
007
008
Sub Seite_gesamt_alt()
Dim Seite As Long
Seite = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End Sub
Dim Seite As Long
Seite = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End Sub
Die Ergebnisse sind immer gleich. sie können sich also aussuchen, welchen Code sie benutzen wollen.
