word替换字段并加上颜色

我想用VBA对word2003 查找、替换文本字段并加上红色，通过录制宏可以得到替换字段的代码，但加入.Replacement.Font.Color =wdColorRed 并不能使替换后的字段变成红色。完整代码如下：
Sub Macro1()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "安全"
        .Replacement.Text = "不安全"
        .Replacement.Font.Color = wdColorRed
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

请问各位有什么高见？？

很奇怪哟，直接在“编辑”菜单里替换就OK，录制成宏就不能改变颜色了。期待高手……