سلام
کد ماکروی زیر را از سایت مایکروسافت گرفتم. در هنگام اجرا خطای زیر ظاهر می*شود.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
لطفا کمک کنید.
با تشکر
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)