打开文档后》启用宏》选中要修改的数字》按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