录制的宏不起作用了

abigtreenj

我经常要把文章中的小写希腊字母从“宋体”改为“Times New Roman”，用通配符查找[α-ω]，在主文档中查找，可以一次选中文章中所有的小写希腊字母，然后更改字体为“Times New Roman”.

我把这个操作录制为宏，代码如下：
Sub 小写希腊字母改字体()

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "[α-ω]"
        .Replacement.Text = "α"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Font.Name = "Times New Roman"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "[α-ω]"
        .Replacement.Text = "α"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
End Sub


又找了一个文档，运行这个宏，没有任何变化.
我对宏知之甚少，麻烦各位大佬指点，多谢多谢！

紫色海水

运行这个宏的前提是，要有选中的文字。
而且录制宏很多情况下不能通用，仅能做参考

abigtreenj

多谢回复.

我在开头加了一句：    Selection.WholeStory
现在运行会把所有文档选中，然后字体改为Times New Roman，但偏偏小写希腊字母都不变.