请教：word文档数字千分位

那你把你搜的VBA代码贴出来呀

Sub N ()
Dim myRange
Dim FindChar As String, RepChar As String
On Error Resume Next
Application.ScreenUpdating = False *关闭屏幕更新
FindChar = "([0-9])([0-9]{3}[!0-9])"
RepChar = "\1,\2"
With ActiveDocument.Content.Find *此处针对全文档
.ClearFormatting *清除格式
.MatchWildcards = True
Do While .Execute(findtext:=FindChar) = True *如果发现
.Execute findtext:=FindChar, Wrap:=wdFindContinue, replacewith:=RepChar, Replace:=wdReplaceAll
Loop
If .Execute(findtext:=FindChar) = False Then
Exit Sub
End If
End With
Application.ScreenUpdating = False *开启屏幕更新
End Sub