WORD性批量添加千位分隔符

打开文档后》启用宏》选中要修改的数字》按ALT+F8》

 

宏的代码如下：

 

                   Sub 自己去的宏名()
 With ActiveDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .MatchWildcards = True
            Do While .Execute(findtext:="([0-9])([0-9]{3}[!0-9])")
                .Execute replacewith:="/1,/2", Replace:=wdReplaceAll
            Loop
        End With
End Sub