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