Office: Office 2020 Zahlen aus Word in Excel kopieren.

Hallo,
ich hätte eine Frage, und zwar habe ich eine Word Datei mit knapp 150 Seiten Zusammenfassung über ein juristisches Lehrbuch in welchem um die 1000 Paragrafenverweise sind (§XXXX). Jetzt zur Frage, gibt es eine Möglichkeit alle Paragrafen bzw. Zahlen zu kopieren und geordnet in eine Excel oder andere Worddatei zu kopieren, damit man einen besseren Überblick hat?

 

Willst Du nur die §-Nummern oder auch die Inhalte (woher) einsammeln? Mit VBA wäre es denkbar. Wie versiert bist Du darin? § suchen, folgende Zahl & ¶ in einen String schreiben, weitersuchen. Zum Schluss den String in die ZwiAbl schreiben, dann kannst Du damit machen, was Du willst.

 

Die §-Nummern wären schonmal ein guter Anfang, leider bin ich ein blutiger Anfänger (weiß nicht einmal was VBA ist :/) in Sachen Word / Add-ins aber dazu gibt es sicher Tutorials, oder?

 

Wenn die §§-Hinweise alle sauber geschrieben sind, also "§ Leerzeichen ### Leerzeichen oder Satzzeichen", geht das mit ganz einfachem Code. Lad mal ein Stück von dem Dok hoch, im Original .docx.

 

Die meisten sind §XXXX *Leerzeichen* Abs X *Leerzeichen* *Abkürzung* zb. ABGB, KSchG...

 

Siehste, das hatte ich befürchtet, keine einheitliche Darstellung der Suchobjekte:
§23 VZKG kein Leerzeichen nach §
§862 kein Leerzeichen nach §, keine Rechtsquelle
§§ 1062, 1063 korrektes LZ, aber zwei Nrn. hintereinander, keine Rechtsquelle
Die einzige Chance wäre hier ein Einsammeln der auf § folgenden Zeichen, vielleicht so um die 10.

 

Ich hab da mal was gebastelt.
Benenne die Dateiendung nach dem Download von .doc in .docm um, weil .docm hier nicht hochzuladen erlaubt ist.
Ruf mit Alt+F8 den Makrolauncher auf und lass "ParaSammler" ausführen.
Ggf. musst Du noch das Ausführen von Makros erlauben.

 

Vielen Dank, hab das Marko in meiner kompletten Worddatei eingeführt und hat super funktioniert, und mit dem Wert der folgenden Zahlen kann ich wahrscheinlich selber bisschen herumspielen, oder?

 

Blöde Frage, gibts ne Möglichkeit um die Seite, von der der Paragraf gezogen wurde dazuzuschreiben? bzw. die Überschrift unter welcher er war?

 

Muss ich mal drüber nachdenken.
Die 20 kannst Du beliebig ändern.

 

Seitennummern hab ich eingebaut. Überschriften äre aufwendig.

Code:

Sub ParaSammler()
Dim Liste, Ergebnis As String
With Selection
    .HomeKey Unit:=wdStory
    .Find.ClearFormatting
    With .Find
        .Text = "§"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Do While .Find.Execute
        .MoveRight Unit:=wdCharacter, Count:=20, Extend:=wdExtend 'hier in Count Textlänge einstellen
        Ergebnis = Selection
        Ergebnis = Replace(Ergebnis, Chr(13), "")
        Liste = Liste & .Information(wdActiveEndPageNumber) & Chr(9) & Ergebnis & Chr(13)
        .Collapse wdCollapseEnd
    Loop
    .EndKey Unit:=wdStory
    .Font.Bold = True
    .TypeText Chr(13) & "Liste der gefundenen §§" & Chr(13)
    .Font.Bold = False
    .TypeText Liste
End With
End Sub