通货紧缩的意思:Word中如何把全角数字变成半角
来源:百度文库 编辑:中财网 时间:2024/05/13 14:22:28
在平使用Word中, 如果复制一些资料,有时候数字是全角, 如何把全角数字变成半角, 如果一二处手动去修改还是可行的. 但太多了手动去改太麻烦, 也容易出错. 这里介绍一个用宏命令把文档中的全角数字全部改为半角数字的方法.
用word “查找与替换”也可以实现, 但要每个数字都要去替换, 还是使用宏方便全角半角转换.
1.选择“工具”→“宏”→“录制新宏...”,在“宏名”框中输入一个名字,确定,将出现一个“录制宏”工具栏,关闭它。
2.再选择“工具”→“宏”→“宏...”,选择刚才那个宏,单击“编辑”按钮,打开vba编辑窗口,写入以下代码:
用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里的全角字母变成半角的字母?
用什么工具可以把文章中全部半角字符变成全角
在OFFICE XP中,有很多全角输入的数字,如何转换成半角?
在word中,全角和半角是什么概念??
如何固定半角或全角?
文章中的数字用全角还是半角?
请问 怎样可以把智能输入法5.0版的全角改成半角,该好后就不变成全角了!
请问 怎样可以把智能输入法5.0版的全角改成半角,该好后就不变成全角了
请问 怎样可以把智能输入法5.0版的全角改成半角,该好后就不变成全角了!?
WORD使用,怎样能一次性把文档中的所有半角标点符号改成全角?
如何区别验证码中的数字是用的全角还是半角
请问: 输入法中, 什么是半角?什么是全角?
英文输入法中怎样变换全角半角?
输入法中全角半角的区别
在Word中想把半角的引号全替换成全角的如何做?
输入法全角与半角之间如何转换
在输入法中什么是半角,全角,有什么区别,如何切换?
请教大家文章中的数字用全角还是半角?
一篇半角全角符号混合的word文章
在word里面半角和全角怎么转换
Word中如何把竖排文字中的数字横排
如何把电脑的中文输入图标调出来?没有显示时如何在全角、半角之间切换?