word怎样12345统计报表有突出显示的一共多少行！比如文档有6行，都是数字！ 12345

来源：蜘蛛抓取(WebSpider) 时间：2016-07-19 18:11 标签： word文档统计字数
查看: 1695|回复: 6
如何批量设置word里的数字为数值格式。
阅读权限20
在线时间 小时
在excel 里，可以单击右键，把范围内里数字如12345.1，变成12，345.10（有数字千位分隔符，2位小数）
现在请问在word里有文字，数字。如何批量把数字（12345.1），变成数值格式（12，345.10）这种格式。请各位老师指教！谢谢！
阅读权限50
在线时间 小时
word没这个功能啊。。。
阅读权限20
在线时间 小时
这个问题也不是不能完成，但是你得把要替换的原文给我。不然的话意义不是很大。
word没法分辨是数字型还是其它词组的一部分，除非你的文档真的全是数字或是绝大部分是数字，不是数字的数字也必须有规律。
比如：2009年；5年2班；
如果文档的名词里面含数字，尤其是大数，比如：S22C330HW，i3-安全卫士，满文档都是这种词语，你一改不都乱了。
阅读权限20
在线时间 小时
写了几行，也没有什么稀奇的Sub 替换千分符()
AddTH &[0-9]@.[0-9]{1,}&
AddTH &[0-9]{1,}&
End Sub
Sub AddTH(bFindTxt As String)
Dim FindTxt As String '替换的字符串
Dim n%
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Find
& & .ClearFormatting
& & .Text = bFindTxt
& & .MatchWildcards = True
& & Do While .Execute = True
& && &&&With Selection.Range
& && && && &FindTxt = Format(.Text, &#,##0.00&)
& && && && &.Text = FindTxt
& && &&&End With
& && &&&'注意的是如果替换之后Selection的位置在被替换文本之前，_
& && &&&'且替换的文本里面有被替换文本的内容，那么就会出现反复替换的死循环
& && &&&'必须将Selecion移动到已经替换的文本之后，可用MoveStart，MoveEnd等手段
& && &&&Selection.MoveStart wdCharacter, Len(FindTxt) '这句话一定再注意一下
& && &&&'n = n + 1: If n & 9 Then Exit Do
& & Loop
End With
Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
& & & & & & & &
hellohaoyu1985 发表于
写了几行，也没有什么稀奇的
代码能识别表格中的文字吗？
阅读权限20
在线时间 小时
& & & & & & & &
loquat 发表于
代码能识别表格中的文字吗？
能啊，word14.06下测试
阅读权限20
在线时间 小时
& & & & & & & &
很好，学习了。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 word文档统计字数 的文章

 

随机推荐