ITPub博客

首页 > 应用开发 > IT综合 > 使用宏改变word中所有英文的字体收藏

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

原创 IT综合 作者:Tom 时间:2009-02-16 17:53:14 0 删除 编辑
模板里中文用宋体,常规, 英文用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/,如需转载,请注明出处,否则将追究法律责任。

下一篇: GT寻址的问题
请登录后发表评论 登录
全部评论

注册时间:2007-12-28

  • 博文量
    109
  • 访问量
    1264416