word中如何为金额数字批量添加千分位符号

【文件属性】：

文件名称：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