下载的word文稿中数字是一个文字大小,字体太大,批量的变小的办法，如下:至２００５年，全县地区总产值５４．９５亿元，比２０００年增加２６．６４亿元，年均增长９．７％；人均ＧＤＰ超过１３００美元；工业总产值４３．８６亿元，比２０００年增加２５．５８亿元，年均增长１７．６％；社会消费品零售总额１５．９９亿元，比２０００年增加７．１８亿元，年均增长１２．７％；财政总收入４．５３亿元，比２０００年增加２．５５亿元，年均增长１８．０％；地方财政收入２．１１亿元，比２０００年增加０．９３亿元，年均增长１２．３％；城镇居民人均可支配收入１０２１７元，比２０００年增加３２５６元，年均增长８．０％；农民人均现金收入４４７６元，比２０００年增加１３４９元，年均增长７．４％。
那么怎么才可以批量的变小呢，看我的，如果我们需要把Word文档中的全角数字全部改为半角数字，手头又没有合适的转换软件，应该怎么做呢？
打开Word的“查找与替换”，怎么也找不到全角改半角的有关设置。执行十次替换虽然可以达到目的，可以步骤也过于繁琐。思前想后，决定用“宏”这个杀手锏。
1.执行“工具”→“宏”→“录制新宏...”，在“宏名”框中输入“数字全角转半角”，确定，将出现一个“录制宏”工具栏，关闭它。
2.执行“工具”→“宏”→“宏...”，选择“数字全角转半角”，单击“编辑”按钮，打开vba编辑窗口，录入代码结果如下:
Sub 数字全角转半角()
'使用前需先选中要替换的区域
Dim qjsz, bjsz As String, i As Integer '定义qjsz（全角数字）、bjsz（半角数字）为字符串型，i为整数型
qjsz = "０１２３４５６７８９"
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！
相关视频
相关阅读 word clock Mac版怎么用 数字时钟word clock怎么设置word clock Mac版怎么卸载 数字时钟word clock卸载方法word clock屏保怎么用 word clock怎么设置Slave's Sword游戏攻略 Slave's Sword新手入门技巧word搜索快捷键是什么Sword Legacy Omen什么时候出 Sword Legacy Omen发售日期Sword Legacy Omen配置要求高吗 Sword Legacy Omen最低配置一览word文档怎么自动生成目录 word文档自动生成目录的方法
热门文章
毕业论文格式设置图文
Word 2010 的十大优点
最新文章
Word拼音怎么打?Word给毕业论文格式设置图文
Word无法读取文档，文档可能损坏怎么办word统一图片大小实例图文教程Word中批量修改图片大小和缩放比例方法毕业论文格式设置图文教程
人气排行 下划线怎么打?是哪个键?Word里输入乘号和除号的6种方法如何让word生成的目录显示4级标题并自动缩进word中表格允许跨页断行不能选择是灰色在Word2003文档中怎么分栏设置怎么制作红头文件Word中批量修改图片大小和缩放比例方法Word无法启动转换器mswrd632的解决办法
查看所有0条评论>>