Sub HighlightOffNext()
' Paul Beverley - Version 26.03.25
' Unhighlights the next area of highlighting

doTrack = False
Selection.Expand wdWord
Selection.Collapse wdCollapseStart
myTrack = ActiveDocument.TrackRevisions
If doTrack = False Then ActiveDocument.TrackRevisions = False
Selection.Collapse wdCollapseEnd
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = ""
  .Wrap = wdFindStop
  .Forward = True
  .Highlight = True
  .Replacement.Text = ""
  .MatchWildcards = False
  .Execute
  DoEvents
End With
If Selection.Find.found = True Then
  Selection.Range.HighlightColorIndex = wdNoHighlight
  Selection.Collapse wdCollapseEnd
Else
  Beep
End If
If doTrack = False Then ActiveDocument.TrackRevisions = myTrack
End Sub