如果我们需要把Word文档中的全角数字全部改为半角数字， 手头又没有合适的转换软件， 应该怎么做呢？
打开Word的“查找与替换”， 怎么也找不到全角改半角的有关设置 。 执行十次替换虽然可以达到目的， 可以步骤也过于繁琐 。 思前想后， 决定用“宏”这个杀手锏 。
1.执行“工具”→“宏”→“录制新宏...”， 在“宏名”框中输入“数字全角转半角”， 确定， 将出现一个“录制宏”工具栏， 关闭它 。
2.执行“工具”→“宏”→“宏...”， 选择“数字全角转半角”， 单击“编辑”按钮， 打开vba编辑窗口， 录入代码结果如下:
Sub数字全角转半角()
'使用前需先选中要替换的区域
Dimqjsz,bjszAsString,iAsInteger'定义qjsz（全角数字）、bjsz（半角数字）为字符串型， i为整数型
qjsz="０１２３４５６７８９"
bjsz="0123456789"
Fori=1To10'循环10次
WithSelection.Find
.Text=Mid(qjsz,i,1)'mid函数：返回文本字符串中从指定位置开始的特定数目的字符， 每次取一个数字
.Replacement.Text=Mid(bjsz,i,1)'将用于替换的相应位置的半角数字
.Format=False'保留替换前的字符格式
.ExecuteReplace:=wdReplaceAll'用半角数字替换全角数字
EndWith
Nexti
EndSub
【编写Word“宏”轻松将全角数字转换为半角升级必备】 3．关闭vba编辑窗口， 选中要改变数字格式的文字区域， 执行“工具”→“宏”→“宏...”→“数字全角转半角” 。 一切OK！
推荐阅读
- 巧用“查找替换”将Word文档中数字改成粗体2020攻略资讯
- 健康小常识 拉肚子“禁食”还是“进食”
- Word文档与WPS文档的相互转换技巧一览大全
- Word中列行互换的技巧让您无可匹敌
- Word表格原来也能求得平均值图文攻略666
- Word-2000表格编辑“自动化”帮助升级的技巧
- 使用word样式格式化文档收获很多的
- 修改WORD默认设置优化操作涨知识
- 取消Word中过于“热情”的服务2020开心玩
- 七招救受损WORD文档新发布的哦