Wie Referenz MS Word-Inhaltsverzeichnis Seitenzahlen mit Excel VBA?

Question

Ich versuche, die Seitenzahlen auf der rechten Seite eines Inhaltsverzeichnisses in Word in einigen VBA-Code zu verwenden. Ich kann auf das Array zugreifen, das den Text speichert, der mit diesen Seitennummern unter Verwendung von GetCrossReferenceItems(wdRefTypeHeading) verknüpft ist, aber ich kann nicht scheinen, die Seitennummern selbst zu erhalten. Keine der GetCrossReferenceItems-Konstanten here scheint relevant zu sein.

Gibt es eine Möglichkeit, diese Seitenzahlen zu verweisen? Vielen Dank!

Answer 1

Ich bin kein "Worder" so hier ist, was ich kam:

Option Explicit 
Sub main() 
    Dim myPagesNumber() As Long 

    myPagesNumber = GetPagesNumber(ActiveDocument) '<-- store index pages numbers in myPagesNumber 
End Sub