新使用宏批量转换Word文档中的数字格式
---
批量改变下载的word文档文字大小
在处理下载的Word文稿时，有时会遇到数字的文字大小与其他内容不一致的情况。如果数字字体过大，需要批量将其大小调整为统一的标准。例如，某地区的总产值在2005年达到了54.95亿元，在此基础上，工业总产值增长了17.6%，社会消费品零售总额增长了12.7%，财政总收入增长了18.0%等等。如何快速、批量地调整这些文字的大小呢？
使用宏进行全角数字转半角数字
当我们需要将Word文档中的全角数字全部改为半角数字时，手头没有合适的转换软件也可以轻松实现。首先，在Word中打开“查找与替换”功能，但是通常找不到全角转半角的相关设置。为了简化操作，可以利用“宏”来实现这一目标。
1. 执行“工具”→“宏”→“录制新宏...”，输入宏名为“数字全角转半角”，确定后会弹出一个“录制宏”工具栏，可关闭。
2. 接着执行“工具”→“宏”→“宏...”，选择之前创建的“数字全角转半角”宏，点击“编辑”按钮，进入vba编辑窗口，将下方代码录入其中：
```vba
Sub 数字全角转半角()
'使用前需先选中要替换的区域
Dim qjsz, bjsz As String, i As Integer
'定义qjsz（全角数字）、bjsz（半角数字）为字符串型，i为整数型
qjsz "０１２３４５６７８９"
bjsz "0123456789"
For i 1 To 10
'循环10次
With
.Text Mid(qjsz, i, 1) '每次取一个数字
.Replacement.Text Mid(bjsz, i, 1) '将用于替换的相应位置的半角数字
.Format False '保留替换前的字符格式
.Execute Replace:wdReplaceAll '用半角数字替换全角数字
End With
Next i
End Sub
```
3. 关闭vba编辑窗口，选择要转换数字格式的文字区域，再执行“工具”→“宏”→“宏...”→“数字全角转半角”。这样就完成了批量转换全角数字为半角数字的操作。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
