word中全角符号转半角

最近无聊做文档,跟领导建议不要用word做,没被采纳,无奈文档给洋人看,全角符号要改半角,于是仿照现成例子写个macro:

Sub 字母数字符号全角转半角()

‘ 字母数字符号全角转半角 Macro

‘ 宏在 2005-10-14 由 ZhengRC 创建

Dim qjsz, bjsz As String, i As Integer ‘定义qjsz(全角数字)、bjsz(半角数字)为字符串型,i为整数型

qjsz =

0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./<>?;':

[]{}\|=-+_)(*%$#@!`~& 

bjsz =

0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./

?;’:

[]{}\|=-+_)(*%$#@!`~

Selection.WholeStory

For i = 1 To 95 ‘循环10次

    With Selection.Find

        .Text = Mid(qjsz, i, 1) ‘mid函数:返回文本字符串中从指定位置开始的特定数目的字符,每次取一个数字

        .Replacement.Text = Mid(bjsz, i, 1) ‘将用于替换的相应位置的半角数字

        .Format = False ‘保留替换前的字符格式

        .Execute Replace:=wdReplaceAll ‘用半角符号替换全角符号

    End With

Next i

End Sub