你好，可否帮助些一个word的宏，给某些数字加千分符和小数点。

比如说一篇报告里，包含了很多数字，有些数字是金额的，有些是年份或者其他的。我希望实现的功能是，为金额类的数字自动保留两位小数，并加上千分符。加千分符我已经找到一个宏（如下，只对已经有小数点的数字和后面单位是元的数字加千分符）。
Sub 千分位宏()
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
Do While .Execute(findtext:="([0-9])([0-9]{3})([.,元])")
.Execute replacewith:="\1,\2\3", Replace:=wdReplaceAll
Loop
End With
End Sub

但是，有些数字，比如1234560元，虽然会加上千分符，但是我希望它能自动保留两位小数，即得到1,234,560.00元。看了这个宏，http://wenwen.sogou.com/z/q811817689.htm，可否将它俩合并，实现这个功能呢？不胜感激哦。

也可以换个想法，先运行上面加千分符的那个宏，再运行只给有千分符的数加小数点的宏。。帮忙写个只给有千分符的数加小数点的宏，望大侠帮忙。。

查收。

或许可以。