خطای Run-time error '424': Object Required در هنگام اجرای ماکرو

[mrezza]

سلام
کد ماکروی زیر را از سایت مایکروسافت گرفتم. در هنگام اجرا خطای زیر ظاهر می*شود.

Run-time error '424': Object Required

خطی که موجب این خطا می*شود را با رنگ قرمز مشخص کردم.

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

لطفا کمک کنید.
با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

مشکلی در اجرای ماکرو در ورد 2010 مشاهده نمیگردد چنانچه اعداد موجود بالاتر از چهار رقم باشد بصورت سه رقم سه رقم از سمت راست با قرار دادن علامت ویرگول مشخص میگردد

[mrezza]

در دو سیستم تست کردم. یکی بدون خطا اجرا می*شود ولی در سیستم دیگر خطای گفته شده را می*دهد. هر دو سیستم دارای ورد ۲۰۱۳ هستند.

[mrezza]

ماکرو را پاک کردم و دوباره ساختم. مشکل حل شد!