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