将word文档中的英文标点替换为中文标点的宏代码 下载的中文文档常常会满篇的英文标点符号，如何快捷地把英文标点修改为中文标点呢？首先要保存为word文档，然后打开需要修改的word文档，执行“工具”－“宏”－“VisualBasic编辑器”命令，在弹出的VB窗口中，执行“视图”－“代码窗口”，将下面这段代码复制到代码窗口中，然后运行这段代码（在菜单中有运行命令），关闭这个VB窗口，再看一下你原来的文档，是不是所有的英文标点都变成中文标点了……但是你发现没有，还有英文的双引号没有被修改，这个程序解决不了这个问题的，如果不多就手工修改一下吧，如果太多的话，后面再想办法解决了……（此代码系网上转载，由逍遥赵于2005年1月16日编写，特此感谢！） Sub英文标点符号转中文标点符号() Dimywfh,zwfhAsString,iAsInteger ywfh=",.?!:;()" ywfh2="..." zwfh="，。？！：；（）" zwfh2="…" WithActiveDocument.Content.Find .Text=ywfh2 .Replacement.Text=zwfh2 .Format=False .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 NextiActiveDocument.Content.Font.Name="宋体"EndSub
本文档为【将word文档中的英文标点替换为中文标点的宏代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483