【文件属性】：
文件名称：word中如何为金额数字批量添加千分位符号
文件大小：13KB
文件格式：DOCX
更新时间：2013-06-15 11:30:49
批量添加千分位
可批量对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