Clear all highlighting from a document

Article contributed by Bill Coan

The following macro clears highlighting from all words:

Sub ClearHighlightFromAllWords()

Dim StoryRange As Range

For Each StoryRange In ActiveDocument.StoryRanges
    StoryRange.HighlightColorIndex = wdNoHighlight
Next StoryRange

End Sub