如何用VBA代码实现WORD文档的全角字符向半角字符转换？在线等
如何用VBA代码实现WORD文档的全角字符向半角字符转换？
以上是本人的面试题目，由于本人对WORD方面的VBA不太熟悉，特求教高手并高分想送。
急，在线等待中。。。
问题点数：100、回复次数：2Top
1 楼sb56（初学者）回复于 2005-12-30 19:23:15 得分 100
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
LoopTop
2 楼northwolves（狼行天下）回复于 2006-04-19 17:07:28 得分 0
楼上不必逐个转换,整体转换就可以了:
Sub Macro1()
Dim temp As String
temp = ActiveDocument.Content.Text
temp = StrConv(temp, vbNarrow)
ActiveDocument.Content.Text = temp
End SubTop
