如何用VBA代码实现WORD文档的全角字符向半角字符转换

[hiyo]

如何用VBA代码实现WORD文档的全角字符向半角字符转换？
以上是本人的面试题目，由于本人对WORD方面的VBA不太熟悉，特求教高手并高分想送。
急，在线等待中。。。

[sb56]

On Error GoTo errLine
Dim curDoc As Document
Dim sCount As Double, i As Double

Set curDoc = ActiveDocument
sCount = curDoc.Content.Characters.Count
Beep
If sCount = 0 Then
MsgBox "无效操作!这是个空文档,不含有任何字符,无须进行转换.", vbOKOnly + vbInformation, "提示"
Exit Function
End If
'****
MsgBox "当前文档共有字符数" & sCount & "个.请单击确定按钮系统继续.....", 48, "统计提示"
i = 1
Do While i <= sCount
If transType = "全角转半角" Then
curDoc.Content.Characters(i) = StrConv(curDoc.Content.Characters(i), vbNarrow)
Else '半角转全角
curDoc.Content.Characters(i) = StrConv(curDoc.Content.Characters(i), vbWide)
End If
i = i + 1
Loop

[proer9988]

呵呵，2句话搞定。

Selection.WholeStory
Selection.Range.CharacterWidth = wdWidthHalfWidth