Hi Marti,

(der Einzige Marti den ich kenne ist McFly )

Ich würde das ganze etwa so angehen:

Sub Anti_Hervorheben()

'entfernt alle Hervorhebungen außer Gelb

ActiveDocument.Range.Select

With Selection.Find
  .ClearFormatting
  .Highlight = True
  .Text = "*"
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindStop
  .MatchCase = False
  .MatchWholeWord = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  Do
    .Execute
    If .Found Then
      If .Parent.Range.HighlightColorIndex <> wdYellow Then
        .Parent.Range.HighlightColorIndex = wdNoHighlight
        foundrStart = .Parent.Range.Start
      ElseIf .Parent.Range.Start < foundrStart Then
        Exit Do
      End If
    Else
      Exit Do
    End If
  Loop
End With

End Sub

Gruß Mr. K.