Office: (Office 2013) Textteile aus Word in Exceltabelle sortieren mit Makro

Hallo zusammen,
ich habe folgendes vor:
In einem Word Dokument liegen mehrere hundert Seiten Gesetze, die mit Absätzen getrennt sind.
Diese möchte ich untereinander in logischer Reihenfolge in eine Exceltabelle setzen. Word hat die einzelnen Gesetze als solche erkannt, wodurch sie auch auf- und zugeklappt werden können.

- Wie kann ich jeweils definieren, von wo bis wo ein Gesetz geht? Es beginnt mit '§' und hört folglich beim nächsten auf, wo wiederum das neue Gesetz beginnt. Problem hierbei: Es wird des Öfteren auf andere Paragraphen verwiesen mit entsprechendem Zeichen. Einzig dadurch, dass die eigentlichen Paragraphen fett gedruckt sind, ergibt sich eine Differenzierungsmöglichkeit.
- Wie kann ich generell den Text aus dem Word Dokument exportieren?
- Aufgrund der bekannten Anzahl Paragraphen bietet sich eine for-Schleife an, richtig?

Ich bin über jede Hilfe sehr dankbar!

 

Hallo,

in der beiliegenden WinZip-Datei sind 2 Dateien enthalten:
1) xoxo1.1_Gesetzestexte.docx
2) xoxo1.1_Word_nach_Excel.xlsm

1) Nach der Extraktion dieser beiden Dateien in ein und dasselbe Verzeichnis können sie verwendet werden.
2) Dabei enthält die Word-Datei nur einen als Muster gedachten sogenannten Blindtext mit ein paar Paragraphenangaben.
3) Das eigentliche VBA-Makro befindet sich in der Excel-Datei "xoxo1.1_Word_nach Excel.xlsm".

Im Arbeitsblatt dieser Excel-Datei befindet sich ein Button mit der Aufschrift "Word-Datei importieren nach Spalte A". Klickt man auf diesen, so wird die Datei, deren Namen sich in der Zelle E1 (mit Bereichsnamen "WordDatei") befindet, in die Spalte A dieses Arbeitsblattes eingelesen.
Die Zellhöhen werden dabei automatisch an den Zellinhalt angepasst, wobei pro Zelle 1 Absatz aus der Worddatei eingelesen wird.
Befindet sich in der Worddatei am Anfang eines Absatzes ein fett geschriebenes Paragraphenzeichen, so wird vor einem solchen Absatz eine zusätzliche Leerzelle eingefügt.

Zum Makro gelangst du folgendermaßen:
1) die Tastenkombination Alt+F11 drücken, um in den VBA-Editor zu gelangen.
2) die Tastenkombination Strg+R drücken, falls das Projekt-Fenster nicht sichtbar sein sollte.
3) Im Projektfenster einen Doppelklick auf den Eintrag "mod_WordImport" im Abschnitt "Module" ausführen, sodass im Codefenster das Makro sichtbar wird.