Word宏轻松将全角数字转换为半角 -- 零度软件园

下载首页┋下载分类┋最近更新┋排行榜┋国产软件┋国外软件┋汉化补丁┋┋┋本站论坛┋BT下载页┋

设为首页
收藏本站
联系我们

您的位置：首页 → 办公软件 → Word → Word宏轻松将全角数字转换为半角

热点文章

推荐文章

Word宏轻松将全角数字转换为半角

出处：互联网络作者：佚名日期：2007-3-7 19:44:07 人气： [大中小]

　　　　如果我们需要把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.关闭vba编辑窗口，选中要改变数字格式的文字区域，执行“工具”→“宏”→“宏...”→“数字全角转半角”。一切OK！

上一篇：让DOC不再泄密:防泄密从Word开始
下一篇：在Word XP中也能插入国际音标、拼音

相关文章

相关软件

	评论人	评论内容摘要(共 0 条，查看完整内容) 得分 0 分	发表时间

关于本站 | 广告服务 | 版权声明 | 联系我们 | |

联系我

| 交流群：1361692 7710545
本站部分带宽由：华夏名网、武汉IDC数据中心赞助[排名不分先后] Powered By 零度软件园
本站软件均来源于网络，仅供学习所用。若侵犯了你的权益，请立即通知我们，我们将第一时间删除！