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