FAQ Word – Rechtschreibfehler ausdrucken

Problem

Word kann Rechtschreibfehler bereits während der Arbeit im Dokument durch eine entsprechende Unterstreichung auf dem Bildschirm hervorheben.

Leider ist diese Markierung nicht zu sehen, wenn Sie das Dokument ausdrucken, was für einige Anwendungen wünschenswert wäre.

Mit einer kleinen VBA-Prozedur heben Sie automatisch alle Fehler so hervor, dass Sie auch auf dem Ausdruck zu sehen sind. Geben Sie die folgende Prozedur in die globale Dokumentvorlage NORMAL.DOT ein:

Lösung

Sub FehlerMarkieren()
Dim rngWort As Range
Dim rngBereich As Range
Dim lngBereiche As Long, lngWoerter As Long
Dim i As Long, j As Long
Dim intProzent As Integer
i = 0
j = 0 l
ngBereiche = ActiveDocument.StoryRanges.Count
For Each rngBereich In ActiveDocument.StoryRanges
i = i + 1
lngWoerter = rngBereich.Words.Count
For Each rngWort In rngBereich.Words
j = j + 1 intProzent = CInt((j * 100) / lngWoerter)
Application.StatusBar = „Bereich “ & i & “ von “ & _
lngBereiche & „: “ & intProzent & „%“
If Not Application.CheckSpelling(Word := _
rngWort.Text) Then
rngWort.HighlightColorIndex = wdYellow
End If
Next rngWort
Next rngBereich
End Sub

Wenn Sie in Zukunft ein Dokument mit markierten Rechtschreibfehlern ausdrucken möchten, rufen Sie vorher diese Prozedur über das Dialogfeld Extras-Makro-Makros auf. Jeder Fehler wird daraufhin gelb markiert. Um alle Markierungen wieder zu entfernen, setzen Sie das folgende Makro ein:

Sub MarkierungLoeschen()
Dim rngBereich As Range
For Each rngBereich In ActiveDocument.StoryRanges
rngBereich.HighlightColorIndex = wdNoHighlight
Next rngBereich
End Sub