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