Word里全角转换成半角

上次写一篇文章，不小心开了全角，结果文章编辑完，惨不忍睹，然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数，但发现VBA的ASC不是全半角转换的功能，晕死，只能网上找答案，终于，找到一个狼版以前发的回帖，完美解决。
代码如下：

SBC2DBC() SBC2DBC()
        ActiveDocument.Content.CharacterWidth = wdWidthHalfWidth
End Sub

作者：laoyebin(Paladin.lao)

博客园出处： http://www.cnblogs.com/laoyebin/

个人网站英文出处： http://mrvsto.com/

个人网站中文出处： http://cn.mrvsto.com/

转载于:https://blog.51cto.com/laoyebin/360484