جدا کردن اعداد در Word به صورت سه رقم سه رقم با ماکرو

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "[0-9]{3,}"
.MatchWildcards = True
While .Execute
oRng.Select
If MsgBox("Do you want to format this instance", vbQuestion + vbYesNo, "FORMAT") = vbYes Then
oRng = Format(oRng, "#,##0")
End If
oRng.Collapse wdCollapseEnd
Wend
End With
End Sub

در ضمن اگر این کد با خطا مواجه می شود ،

اگر پس از اجرای ماکرو با خطای زیر مواجه شدید،

Run-time error '5560':

The Find What text contains a Pattern Match expression which is not valid.

http://pctarfand.ir/post/255

احتمال می دهم که از تنظیمات Region در control panel است ، لطفا region را English Unite State انتخاب کنید و مجدد تست نمایید، شاید کد درست عمل کند.

نظیمات region را English Unite State انتخاب کردم و کد جواب داد.

در ضمن اگر نمی خواهد که این کد برای هر عدد سوال را بپرسد، کافی است که دو سطر زیر را حذف کنید :

If MsgBox("Do you want to format this instance", vbQuestion + vbYesNo, "FORMAT") = vbYes Then

End If