Office: (Office 2007) Per Makro Überschriften aus Word in Excel kopieren

Hallo miteinander!

Ich hänge schon seit drei Tagen an folgende Problemstellung:
Ich muß aus mehreren Dutzend Word-Dateien alle Überschriften ohne Formatierung, jedoch mit Numerierung in jeweils eine Excel-Datei oder Excel-Tabelle (ich meine verschiedene Reiter) kopieren. Wenn ich das von Hand mache bin ich wahrscheinlich die nächsten drei Wochen beschäftigt. Zum Thema "Formatierung" per Skript habe ich sehr viel gefunden, aber leider nichts zum Thema "Kopieren von Übershriften".

Es sollen also alle Ebenen von Überschriften mit Numerierung aus einer Worddatei in ein Excel-Sheet kopiert werden, sodass in der ersten Spalte alle Nummern und in der zweiten Spalte alle Texte stehen.

Hat dieses Problem schon jemand gelöst? Ich könnte Hilfe sehr gut gebrauchen.
Danke im voraus!

steelhead

:)

 

Hallo Stahlkopf,

Kannst Du eine anonymisiertes (aber mit gleichen Schriftstilen [Überschrift, Normel etc.], wie das Original) WORD-Beispiel hier hochladen, dann kann man vielleicht was zusammenbasteln.

 

So, jetzt konnte ich ein Beispiel erzeugen. Zu beachten ist, dass ich alle Überschriften benötige; also Überschriften aller Ebenen. Die Tiefe des Inhaltsverzeichnis reicht leider nicht aus. Die Beispieldatei habe ich hier angehängt.

Gruß
Steelhead

 

Ich dachte schon, ich sollte es lieber aufgeben, mit dem programmieren.
Das Problem scheint kniffliger zu sein, als es aussieht. *rolleyes.gif*

 

Hallo Steelhead,

Das es um eine Hierarchiesche Struktur geht ist in der Zwischenzeit klar. Was aber wie in die Arbeitsmappe umgesetzt werden soll ist mir nicht klar. Also
a) Was soll 1 Tabellenblatt enthalten? z.B. Alle Titel der Verzeichnisstufe N ? also Tabelle1:Level1, Tabelle2:Level2... etc?
b) Kann immer davon ausgegangen werden, das ein WORD-Verzeichnis (/TOC) existiert und dies alle Level enthält, die in Excel abgebildet werden soll ?

 

zu a): Alle Überschriften sollen in einer Tabelle erscheinen.
zu b): Es existiert immer Inhaltsverzeichnis. Dies allerdings nur bis zu einer Tiefe von drei. Allerdings benötige ich alle Ebenen von Überschriften.

Ich habe mal eine passende Ergebnisdatei zur Demonstration angehängt.
So soll's aussehen:

 

hiho

ich hätte da ein Makro , aber das geht nur aus Word heraus alle Versuche das aus Excel zu starten schlugen bislang fehl. *frown.gif*

aber warum nicht einfach kopieren -> Inhalte einfügen -> Text??

im Worddokument -> ALT+F9
das Inhaltsverzeichnis sieht dann so aus

{TOC \o "1-3" \h \z }

einfach auf

{TOC \o "1-9" \h \z }

erhöhen Alt+F9 drücken -> danach nochmal im Inhaltsverzeichnis -> f9
kopieren -> excelzelle wählen -> Inhalte einfügen -> Text

p.s das Inhaltsverzeichnis kann natürlich auf gleichem Wege in Word zurückgestellt werden.

hier noch der Link aus Word heraus mit Makro

http://mypage.bluewin.ch/reprobst/WordFAQ/TOCExp.htm

 

Vielen Dank für die Hilfe. Mit dem letzten Vorschlag geht es auf jeden Fall schneller, als alles per Hand (Strg-C, Strg-V) zu kopieren. Noch nicht optimal, aber besser.

Gruß
Steelhead