Hallo zusammen.

Ich benötige ein Makro, welches mir das Inhaltsverzeichnis einer Word-Datei einliest und die Inhalte in Excel überträgt.

Beispiel:

Das Inhaltsverzeichnis ist folgendermaßen aufgebaut

1 Thema A

1.1Thema A.1

1.1.1 Thema A.1.1

1.1.2 Thema A.1.2

2 Thema B

....

Usw.

Ich habe etwas gefunden, womit ich mir den Inhalt des Verzeichnisses immerhin schonmal als Textbox ausgeben kann:

    Dim sourceDocument As Document
    Set sourceDocument = ActiveDocument
    MsgBox (sourceDocument.TablesOfContents(2).Range.Text)

Aber wie kriege ich dies nun irgendwo hin kopiert geschweige denn in Excel eingefügt?

Danke schonmal für eure Hilfe :)