Sub HighlightOffNextWord()
' Paul Beverley - Version 15.05.21
' Unhighlights the next word that has some highlighting

Do
  Selection.Collapse wdCollapseEnd
  Selection.MoveRight wdWord, 1, Extend:=wdExtend
  myCol = Selection.Range.HighlightColorIndex
  DoEvents
Loop Until myCol <> wdNoHighlight Or Selection = vbCr
Selection.Range.HighlightColorIndex = wdNoHighlight
If Selection = vbCr Then Beep
Selection.Collapse wdCollapseEnd
End Sub