關于英文字元半角轉全角的問題

簡單說來，就是全角空格為12288、半角空格為32，其他字元半角(33-126)與全角(65281-65374)的對應關系是：均相差65248。

下面是随手寫的一個VBA宏，運作于 Word，可将活動文檔中全部英文半角字元轉全角。

（但速度之慢啊，轉1000多個字元要花2-3分鐘）

Sub ttt()

Dim i As Long, ac As Long

  For i = Application.ActiveDocument.Characters.Count To 1 Step -1

      ac = AscW(Application.ActiveDocument.Characters(i).Text)

      If ac = 32 Then

        Application.ActiveDocument.Characters(i).Text = ChrW(12288)

      ElseIf ac > 32 And ac < 128 Then

        Application.ActiveDocument.Characters(i).Text = ChrW(AscW(Application.ActiveDocument.Characters(i).Text) + 65248)

      End If

      Debug.Print i,

  Next

End Sub