Highlight any misspelled words, so that unrecognized words stand out prominently on a printout
Article contributed by Bill Coan
Sub HighlightMisspelledWords()
Dim oWord As Range
Dim StoryRange As
Range
For Each StoryRange
In
ActiveDocument.StoryRanges
Application.CheckSpelling Word:=StoryRange
For Each oWord
In
StoryRange.Words
If Not
Application.CheckSpelling(Word:=oWord.Text) Then
oWord.HighlightColorIndex = wdYellow
End If
Next oWord
Next StoryRange
End Sub