Seitenzahl eines Abschnittes im Dokument

sie benötigen nur die Seitenzahl des aktuellen Abschnittes? Also dort, wo aktuell die Einfügemarke steht? Das ist schon ein wenig komplizierter, denn es gibt dafür keien Parameter der Eigenschaft Information. Dazu muss man alle Seiten des Dokumentes durch gehen und nur Zählen, wenn sich die Seite in dem aktuellen Abschnitt befindet.

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028

Sub Seite_Abschnitt()

   Dim Seite As Long        'Seitenzahl des Abschnittes
   Dim aktSeite As Long     'Zähler für die Seiten
   Dim Abschnitt As Long    'Zahl für den aktuellen Abschnitt

    'Zahl des aktuellen Abschnittes bestimmen
   Abschnitt = Selection.Information(wdActiveEndSectionNumber)

    'an den Anfang des Dokumentes gehen
   Selection.HomeKey Unit:=wdStory

   If ActiveDocument.Sections.Count > 0 Then
      Do While Not aktSeite = Selection.Information(wdNumberOfPagesInDocument)
       'hier nur zählen, wenn sich die Seite im aktuellen Abschnitt befindet
         If Selection.Information(wdActiveEndSectionNumber) = Abschnitt Then Seite = Seite + 1
          'eine Seite weiter "blättern"
         Selection.GoToNext (wdGoToPage)
          'Seitenzähler hochsetzen
         aktSeite = aktSeite + 1
      Loop
   End If

    'Ausgabe des Ergebnisses
   MsgBox "Abschnitt: " & Abschnitt & Chr(13) & "Seitenzahl: " & Seite

End Sub

Achten sie auf die Kommentierungen im Code. Daraus erkennen Sie, was genau in den Zeilen ausgeführt wird.

zurück zur Übersicht Seitenzahlen