如何批量设置word里的数字为数值格式。

mfk1288

在excel 里，可以单击右键，把范围内里数字如12345.1，变成12，345.10（有数字千位分隔符，2位小数）

现在请问在word里有文字，数字。如何批量把数字（12345.1），变成数值格式（12，345.10）这种格式。请各位老师指教！谢谢！

loquat

word没这个功能啊。。。

hellohaoyu1985

这个问题也不是不能完成，但是你得把要替换的原文给我。不然的话意义不是很大。
word没法分辨是数字型还是其它词组的一部分，除非你的文档真的全是数字或是绝大部分是数字，不是数字的数字也必须有规律。
比如：2009年；5年2班；
如果文档的名词里面含数字，尤其是大数，比如：S22C330HW，i3-3200，360安全卫士，满文档都是这种词语，你一改不都乱了。

hellohaoyu1985

写了几行，也没有什么稀奇的

1. Sub 替换千分符()
   
2. AddTH "[0-9]@.[0-9]{1,}"
   
3. AddTH "[0-9]{1,}"
   
4. End Sub
   
5. 
   
6. Sub AddTH(bFindTxt As String)
   
7. Dim FindTxt As String '替换的字符串
   
8. Dim n%
   
9. On Error Resume Next
   
10. Application.ScreenUpdating = False
    
11. With Selection.Find
    
12.     .ClearFormatting
    
13.     .Text = bFindTxt
    
14.     .MatchWildcards = True
    
15.     Do While .Execute = True
    
16.         With Selection.Range
    
17.             FindTxt = Format(.Text, "#,##0.00")
    
18.             .Text = FindTxt
    
19.         End With
    
20.         '注意的是如果替换之后Selection的位置在被替换文本之前，_
    
21.         '且替换的文本里面有被替换文本的内容，那么就会出现反复替换的死循环
    
22.         '必须将Selecion移动到已经替换的文本之后，可用MoveStart，MoveEnd等手段
    
23.         Selection.MoveStart wdCharacter, Len(FindTxt) '这句话一定再注意一下
    
24.         'n = n + 1: If n > 9 Then Exit Do
    
25.     Loop
    
26. End With
    
27. Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

loquat

hellohaoyu1985 发表于 2014-2-14 17:45
写了几行，也没有什么稀奇的

代码能识别表格中的文字吗？

hellohaoyu1985

loquat 发表于 2014-2-14 22:07
代码能识别表格中的文字吗？

能啊，word14.06下测试

999lhg999

很好，学习了。

沧海一声笑NEW2

到单位试试，格式问题。