上次写一篇文章,不小心开了全角,结果文章编辑完,惨不忍睹,然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数,但发现VBA的ASC不是全半角转换的功能,晕死,只能网上找答案,终于,找到一个狼版以前发的回帖,完美解决。
代码如下:
Sub SBC2DBC()
ActiveDocument.Content.CharacterWidth = wdWidthHalfWidth
End Sub
上次写一篇文章,不小心开了全角,结果文章编辑完,惨不忍睹,然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数,但发现VBA的ASC不是全半角转换的功能,晕死,只能网上找答案,终于,找到一个狼版以前发的回帖,完美解决。
代码如下:
Sub SBC2DBC()
ActiveDocument.Content.CharacterWidth = wdWidthHalfWidth
End Sub
转载于:https://www.cnblogs.com/laoyebin/archive/2010/07/26/1785648.html