Sub ReplaceRed()
'
    With Selection.Find
       .ClearFormatting
       .Font.Color = wdColorRed
       .Replacement.ClearFormatting
       .Text = ""
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = True
 
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    
End Sub