使用宏改变word中所有英文的字体收藏

模板里中文用宋体,常规, 英文用Times New Roman。但是我觉得英文用Times New Roman不好看，自己比较喜欢Dotum，可是文章里中英文混排,很多文字,一个一个设置太麻烦，所以我用宏来实现。

通过使用 Visual Basic for Applications创建宏

1.在“工具”菜单中，指向“宏”，然后单击“宏”。

2.在“宏的位置”列表中，单击将保存宏的模板（模板：是指一个或多个文件，其中所包含的结构和工具构成了已完成文件的样式和页面布局等元素。例如，Word 模板能够生成单个文档，而 FrontPage 模板可以形成整个网站。）或文档。

3.在“宏名”框中，键入宏的名称。这里我用EnglishType

4.单击“创建”，打开“Visual Basic 编辑器”。

5.编辑处输入以下代码：

Sub EnglishType()

Application.ScreenUpdating = False '关闭屏幕更新提高运行速度

Set myrange = ActiveDocument.Characters

For Each aword In myrange

If Asc(UCase(aword.Text)) >= 64 And Asc(UCase(aword.Text)) <= 90 Then

aword.Font.Name = "Dotum"

End If

Next aword

Application.ScreenUpdating = True

End Sub

以后要将文章中所以的英文字体转换为Dotum就可以通过“工具-宏-宏..-运行“来实现了。

的确可以用,不过可能运行时需要点时间,稍安勿躁.

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/2008/viewspace-1017449/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/2008/viewspace-1017449/