求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）

babaiyi

求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）

求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）求助：如何用VBA实现WORD替换功能（比如将宋体的1该为TIMES AND NEWROMAM的1）

我在用 宏录制 之后 的代码如下

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "1"
        .Replacement.Text = "1"
        .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

其中尝试选择了格式，并想调为TIMES AND NEWROMAM的字体（原文为宋体，这里我对原文没有加格式限制），但是在代码中没有出现字体的选项，不知道怎么改。请大家指导下，多谢！