将word文档中的英文标点替换为中文标点的宏代码.doc

《将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