word里的数字小数点后四舍五入只保留2位。

你若知晓

word里的数字小数点后四舍五入只保留2位。例如：12.1275变成12.13，12.1144为12.11

注：不是EXCEL，是WORD。

文档较大且数字多，请哪位高手好心帮帮忙！谢谢

我想了一个笨办法。
先用替换方式将小数点后的数字只保留到3位，
(.[0-9]{3})[0-9][0-9]替换值\1
然后(.[0-9])[0-0][5-9]替换值\11   
然后一直变(.[0-9])[1-1][5-9]      \12
直到(.[0-9])[9-9][5-9]    把所有第三位小数大于或等于5的都进一位
剩下的就都是要舍去的数字了，所以最后用第一种方法将小数替换到2位。
OK，完成任务。虽然又笨又麻烦，但这是比逐个改要好多了，也算是种办法吧。


请求哪位大侠能帮我做个宏？好银有好报！

sqhsqhli

Sub Macro1()
With ActiveDocument.Content.Find
.Text = "[0-9]@.[0-9]{1,100}" '假定小数点后不超过100位
.MatchWildcards = True
Do While .Execute
.Parent = Round(Val(.Parent), 2)
Loop
End With
End Sub

konggs

{:soso_e179:}不错。

sqhsqhli

谢版主鼓励。修正大数字会转为科学计数法的问题：
Sub Macro1()
With ActiveDocument.Content.Find
.Text = "[0-9]@.[0-9]{1,100}" '假定小数点后不超过100位
.MatchWildcards = True
Do While .Execute
.Parent = Format$(.Parent, "fixed")
Loop
End With
End Sub

shxlss

sqhsqhli 发表于 2012-3-25 00:05
谢版主鼓励。修正大数字会转为科学计数法的问题：
Sub Macro1()
With ActiveDocument.Content.Find

麻烦问一下，这个怎么控制小数位数的？

doitbest

fixed参数表示
“显示至少小数点左边一位数，右边两位数。 ”