今天，用到将WORD中的全角数字转成半角数字。无意间GOOGLE一把，发现全部是以讹传讹，你COPY我，我COPY你。关键的几个地方搞错了，以至于函数的功能根本不对。。。

前置程序：

1.执行“工具”→“宏”→“录制新宏...”，在“宏名”框中输入“数字全角转半角”，确定，将出现一个“录制宏”工具栏，关闭它。

2.执行“工具”→“宏”→“宏...”，选择“数字全角转半角”，单击“编辑”按钮，打开vba编辑窗口，录入代码结果如下:

'================如下为宏的内容

Sub 数字全角转半角()
'
' 全角转半角 Macro
' 宏在 2009-10-6 由 崔衍渠 编写
Dim qjsz, bjsz As String, i As Integer '定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型

    qjsz = "０１２３４５６７８９"

    bjsz = "0123456789"

    For i = 1 To 10 '循环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

3 用法

CTRL+A全选，

“工具”→“宏”→ 找到刚才创建的数字全角转半角 运行即可。。。