Word enthält eine Rechtschreibprüfung, mit der Sie bestimmen können, welche Wörter in einem Dokument Ihre Aufmerksamkeit benötigen. Manchmal kann es hilfreich sein, alle falsch geschriebenen Wörter an einem Ort und nicht im gesamten Dokument zu haben. Wenn Sie diese Anforderung haben, sammelt das folgende VBA-Makro alle falsch geschriebenen Wörter aus einem Dokument und platziert sie in einem neuen Dokument.

Sub GetSpellingErrors()

Dim DocThis As Document     Dim iErrorCnt As Integer     Dim J As Integer

Set DocThis = ActiveDocument     Documents.Add

iErrorCnt = DocThis.SpellingErrors.Count     For J = 1 To iErrorCnt         Selection.TypeText Text:=DocThis.SpellingErrors(J)

Selection.TypeParagraph     Next J End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (1465) gilt für Microsoft Word 97, 2000, 2002 und 2003.