在MS Word把全角字符转换成半角字符

今天遇到一个Word 文档，里面的英文字符全都是全角的，看起来十分难受，要是能把全角字符转成半角字符就好了，网上找了一下，还真有。

 

    打开要转换的文档，然后创建一个宏，内容如下：

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

 

然后再执行该宏，就能把全角转换成半角了。