关于英文字符半角转全角的问题

简单说来，就是全角空格为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