一个替换问题

thunor

请教一个问题。在word中可以用代码将希腊字母的字体由“宋体”改为“Times New Roman”吗？
代码1：
With ActiveDocument.Content.Find
            .ClearFormatting
            .MatchWildcards = True
            With .Replacement
                .ClearFormatting
                .Font.Name = "Times New Roman"
            End With
            .Execute FindText:="([0-9A-Za-zα-ω_]{1})", ReplaceWith:="\1", replace:=wdReplaceAll
    End With
结果：失败
失败描叙：数字英文字母更改有效。希腊字母改不了。
代码2
ActiveDocument.ActiveWindow.Selection.HomeKey Unit:=wdStory
        ActiveDocument.ActiveWindow.Selection.WholeStory
        ActiveDocument.ActiveWindow.Selection.Font.Name = "Times New Roman"
     ActiveDocument.ActiveWindow.Selection.HomeKey Unit:=wdStory
结果：失败
失败描叙：数字英文字母等更改有效，希腊字母改不了。

413191246se

楼主，经我试验，特简单！——编辑菜单——全选——Times NeW Roman——OK！不必用VBA。

thunor

谢谢你，第二个代码这样写就是这样操作而来的。但关键目前我想用程序来自动执行很多代码，不好在这一个环节上手动执行。

tan133

手动操作的代码录一个宏，改改，不就是自动的了？我经常这么干

413191246se

全选——新罗马字体：
ActiveDocument.Content.Font.Name = "Times New Roman"

thunor

以上各位，谢谢你们，但全行不通。有的手动能实现，只要用代码就不行了。不知何故。