WORD/VBA: Text in einzelne Sätze zerlegen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

möchte ein umfangreiches WORD DOC in einzelene Sätze zerlegen.
Also, die Sätze in einem Abschnitt sollen in einzelne Absätze „zerlegt“ werden.
Natürlich kann man das mit einer einfachen „Suche nach ‚.‘“ machen, jedoch klappt das nicht mit allen Sätzen (Abkürzungen, Ordnungszahlen).

Da WORD ja die Sätze „erkennt“, wäre es vielleicht besser, mittels VBA die Sätze zu zerlegen.

Hier ein ähnliches Programm, das leider bei mir nicht funktioniert (dt. Version?) und außerdem nach einem bestimmten Suchwort die Sätze „extrahiert“…

http://www.vbaexpress.com/kb/getarticle.php?kb_id=553

Ich möchte, dass alle Sätze „zerlegt“ werden…
Vielleicht kann man auch z.B. nur die ersten 25 Zeichen der Sätze anzeigen…?

Herzlichen Dank!

Grüße
Sabine

#2

möchte ein umfangreiches WORD DOC in einzelene Sätze zerlegen.
Also, die Sätze in einem Abschnitt sollen in einzelne Absätze
„zerlegt“ werden.
Natürlich kann man das mit einer einfachen „Suche nach ‚.‘“
machen, jedoch klappt das nicht mit allen Sätzen (Abkürzungen,
Ordnungszahlen).

Da WORD ja die Sätze „erkennt“, wäre es vielleicht besser,
mittels VBA die Sätze zu zerlegen.

Hallo Sabine,

was da bei dir Vba „erkennt“ weiß ich nicht, aber kann man ja testen.
Laß mal dieses makro laufen:

Sub tt()
Dim Satz
For Each Satz In ThisDocument.Sentences
 MsgBox Satz
Next Satz
End Sub

Zeigt es die Sätze nacheinander so an wie du sie haben willst?

Gruß
Reinhard

#3

Hallo Reinhard,

vielen Dank für Deine schnelle Antwort!
Das Makro läuft. Leider „erkennt“ WORD die Sätze auch nicht richtig:
also Abkürzungen und Ordinalzahlen (z.B. „Reinhard I.“) werden als Satztrenner interpretiert; WORD benutzt also eine einfache „Punkt+Leerzeichen“-Suche… Man muss also manuell nachbessern…

Egal, kannst Du vielleicht das Makro - falls (zeitlich) möglich - erweitern, dass die Ausgabe in ein anderes Dok. erfolgt - und nicht als MsgBox? Also, MsgBox komplett unterbinden? Danke!

Liebe Grüße
Sabine