Word里全角转换成半角

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

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