欢迎来到天天文库
浏览记录
ID:50791261
大小:21.50 KB
页数:2页
时间:2020-03-08
《将word文档中的英文标点替换为中文标点的宏代码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、将word文档中的英文标点替换为中文标点的宏代码 下载的中文文档常常会满篇的英文标点符号,如何快捷地把英文标点修改为中文标点呢?首先要保存为word文档,然后打开需要修改的word文档,执行“工具”-“宏”-“VisualBasic编辑器”命令,在弹出的VB窗口中,执行“视图”-“代码窗口”,将下面这段代码复制到代码窗口中,然后运行这段代码(在菜单中有运行命令),关闭这个VB窗口,再看一下你原来的文档,是不是所有的英文标点都变成中文标点了……但是你发现没有,还有英文的双引号没有被修改,这个程序解决不了这个问题的,如果不多就手工修改一下吧,如果太多的话,后面再想办法解决了……
2、(此代码系网上转载,由逍遥赵于2005年1月16日编写,特此感谢!) Sub英文标点符号转中文标点符号() Dimywfh,zwfhAsString,iAsInteger ywfh=",.?!:;()" ywfh2="..." zwfh=",。?!:;()" zwfh2="…" WithActiveDocument.Content.Find .Text=ywfh2 .Replacement.Text=zwfh2 .Format=False
3、 .ExecuteReplace:=wdReplaceAll EndWith Fori=1To8 '循环8次 WithActiveDocument.Content.Find .Text=Mid(ywfh,i,1) .Replacement.Text=Mid(zwfh,i,1) .Format=False .ExecuteReplace:=wdReplaceAll EndWith
4、 NextiActiveDocument.Content.Font.Name="宋体"EndSub
此文档下载收益归作者所有