Word中如何把全角数字变成半角

Word中如何把全角数字变成半角，本站还有更多Word教程,Word知识,Word办公软件知识,word基础学习方面的资料。
正文：

用word “查找与替换”也可以实现, 但要每个数字都要去替换, 还是使用宏方便全角半角转换.

1.选择“工具”→“宏”→“录制新宏...”，在“宏名”框中输入一个名字，确定，将出现一个“录制宏”工具栏，关闭它。

2.再选择“工具”→“宏”→“宏...”，选择刚才那个宏，单击“编辑”按钮，打开vba编辑窗口，写入以下代码:

Sub 数字全角转半角() 
'使用前需先选中要替换的区域 
Dim qjsz, bjsz As String, i As Integer '定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型 
qjsz = "0123456789" 
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.完成退出宏编辑就可以使用了，选中要改变数字格式的文字区域，执行“工具”→“宏”→“宏...” 找到刚才编辑的宏。 执行. 全角数字就变成半角数字了. 

如果觉得《Word中如何把全角数字变成半角》不错，可以推荐给好友哦。


文章关键字：电脑培训学习 - 办公软件学习 - Word教程,Word知识,Word办公软件知识,word基础学习