Sub del_RedHighlight()
    Dim sText As String
    Dim orng As Word.Range
    sText = "^?"    '^? - любой символ
    Set orng = ActiveDocument.Range
        orng.Find.ClearFormatting
        orng.Find.Highlight = True
        orng.Find.Replacement.ClearFormatting
    Application.ScreenUpdating = False
    With orng.Find
            .Text = sText
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = False
        
        Do While .Execute = True
            If orng.HighlightColorIndex = wdRed Then 'Цвет подсветки текста красный?
                orng.Delete                          'Если да, то найденный символ удаляем
            End If
        Loop
    End With
    Application.ScreenUpdating = True
End Sub