Word-Makro o.ä. zum Export/Filtern von Wörtern mit Rechtschreibefehlern

Ralf Lemster wrote:

Hallo Natália,
ich habe keine Antwort zu deiner Frage, aber es könnte helfen, wenn du etwas genauer beschreibst, was du mit diesem Prozess beabsichtigst.

LG Ralf

Endre Both wrote:

Ich übersehe sicherlich etwas, aber erreicht man mit einer einfachen Rechtschreibprüfung (Taste F7) nicht eben dies: alle verdächtigten (d.h. bei entsprechender Einstellung rot unterkringelten) Wörter einzeln prüfen?

Endre

Endre Both wrote:

Hallo Natália,

du kannst es mal mit folgendem Makro versuchen. Es funktioniert bei mir, läuft allerdings bei längeren Dokumenten entsprechend lange. Es ließe sich wohl mit etwas Aufwand (und bei drastisch erhöhter Laufzeit) realisieren, dass jeder Eintrag nur einmal vorkommt.

Public Sub SpellingErrors()
Dim docToProof As Document
Dim docErrors As Document
Dim errorColl As Variant
Dim error As Range


Set docToProof = ActiveDocument
Set docErrors = Documents.Add

Set errorColl = docToProof.Range.SpellingErrors

For Each error In errorColl
docErrors.Range.InsertAfter error.Text
docErrors.Range.InsertAfter vbCrLf
Next error
End Sub

Hinweise:
Makro entweder im zu prüfenden Dokument, in normal.dot oder in einer anderen Vorlagendatei speichern (und diese dann am besten in den Autostart-Ordner legen).
Makro aus dem zu prüfenden Dokument heraus aufrufen (Alt+F8).
Das Makro legt dann in einem neuen Dokument alles ab, was als Rechtschreibfehler beanstandet wird. Das neue Dokument speichern muss man selbst!

Viel Erfolg,
Endre