Word裏全角轉換成半角

 

上次寫一篇文章，不小心開了全角，結果文章編輯完，慘不忍睹，然後就想自編個宏一次性轉換。起先想到的當然是像Excel一樣使用ASC函數，但發現VBA的ASC不是全半角轉換的功能，暈死，只能網上找答案，終於，找到一個狼版以前發的回帖，完美解決。
代碼如下：

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

作者：laoyebin(Paladin.lao)

博客園出處：http://www.cnblogs.com/laoyebin/

個人網站英文出處：http://mrvsto.com/

個人網站中文出處：http://cn.mrvsto.com/