'VBA将字符由半角转为全角
Sub narrow2wide()
With ActiveWindow.Selection.TextRange
For i = 1 To .Characters.Count
.Characters(i).Text = StrConv(.Characters(i).Text, vbWide)
Next i
End With
End Sub
'VBA将字符由半角转为全角
Sub narrow2wide()
With ActiveWindow.Selection.TextRange
For i = 1 To .Characters.Count
.Characters(i).Text = StrConv(.Characters(i).Text, vbWide)
Next i
End With
End Sub