у меня - в документе кроме красного цвета - есть выделение желтым, синим, зеленым - эти цвета мне удалять не нужно.
Тогда пробуйте макрос:
[vba]Код
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
[/vba]