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

可批量对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