批量将文档内的希腊字母修改为Times News Roman

zhanglei1371

问题源起：
一个几十页的长篇word论文，里面有很多希腊字母：α、β、μ等，但是有的是Times New Roman,有的是宋体。
很显然，宋体是不合乎要求的。那么如何批量将其修改为TNR（Times New Roman）格式？
若是批量选中全文，然后按下图设置，这时有50%的可能性能成功，那么恭喜你，没有出问题！

然后，有时这样的设置的方法显然是不行的。如下图：


早在2015年时，有个帖子讨论过这个问题，但是未能解决：http://club.excelhome.net/thread-1192878-1-1.html
近日再次研究，无意中发现ToggleCharacterCode方法可以解决这个问题，效果如下：

这样就可以彻底解决这个问题了。
附代码如下：

1. Sub 全文希腊字母格式设置为TNR()
   
2. Application.ScreenUpdating = 0
   
3.     Selection.HomeKey 6
   
4.     ActiveDocument.Content.Font.Name = "Times New Roman"
   
5.     ActiveDocument.Content.Font.NameFarEast = "宋体"
   
6.    
   
7.     For Each strA In Array("α", "β", "μ") '其他的可继续添加;
   
8.         Do While Selection.Find.Execute(strA)
   
9.             Selection.ToggleCharacterCode
   
10.             Selection.ToggleCharacterCode
    
11.         Loop
    
12.         Selection.HomeKey 6
    
13.     Next
    
14. Application.ScreenUpdating = 1
    
15. End Sub

复制代码

当然，若有网友有更好的方案，欢迎讨论。

dafanshu1

张老师你好！我在你的附件中，全选，设为半角，就自动变为TNR了。

loquat

find 通配符[α-ωΑ-Ω]
替换格式

zhanglei1371

dafanshu1 发表于 2018-8-13 23:24
张老师你好！我在你的附件中，全选，设为半角，就自动变为TNR了。

感谢提示。这样的话，代码只需精简为两行：

1.     ActiveDocument.Range.CharacterWidth = wdWidthHalfWidth
   
2.     ActiveDocument.Content.Font.Name = "Times New Roman"

复制代码

zjgwzj

loquat 发表于 2018-8-14 09:41
find 通配符[α-ωΑ-Ω]
替换格式

似乎没有效果

srdjmk

dafanshu1 发表于 2018-8-13 23:24
张老师你好！我在你的附件中，全选，设为半角，就自动变为TNR了。

怎么全选，设成半角，我也有类似问题，急需

dafanshu1

srdjmk 发表于 2018-10-27 12:55
怎么全选，设成半角，我也有类似问题，急需

即是ctrl+A全选，如图选“半角”。