انجمن‌های سوالات Microsoft Office > انجمن Word

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

(1/3) > >>

behzad95:
با سلام خدمت  دوستان،خواستم بدونم در ورد چگونه میتوان اعداد را سه رقم سه رقم جدا کرد؟ مثلا به صورت زیر
123,456,452

فرشید میدانی:
دوستی زمانی به من گفت که برای اینکار یک ماکرو word را یافته بود.
من بلد نیستم ، اما یک نگاهی به لینک زیر بیاندازید، اگر توانستید روش آنرا بیابید، لطفا در اینجا با ما هم به اشتراک بگذارید:

http://www.pcmag.com/article2/0,2817,2227816,00.asp


و اما چند دقیقه دیگر در اینترنت گشتم و خوشبختانه ماکروی زیر را یافتم و به نظر می آید که اینکار را انجام می دهد. (جدا کردن اعداد در 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

--- End code ---

توجه: در مورد آخرین عدد در یک سطر نمی دانم که ممکن است در 2 سطر شود و یا نه، لطفا بررسی کنید.

naser100:
با سلام خدمت استاد میدانی
من ماکرو رو امتحان کردم ارور داد و کد متوقف شد
عکس اخطار رو ضمیمه کردم لطف کنید راهنمایی کنید.

barrai:
با کد زیر می تونید اعداد انتخابی در یک جدول را به صورت سه رقم سه رقم جدا کنید

(کد حذف شد زیر مربوط به Word نبود و در اکسل کار می کرد)

barrai:

--- نقل قول از: naser100 در  3 دی 1394 - 00:16:19 ---با سلام خدمت استاد میدانی
من ماکرو رو امتحان کردم ارور داد و کد متوقف شد
عکس اخطار رو ضمیمه کردم لطف کنید راهنمایی کنید.

--- End quote ---

کد استاد میدانی را امتحان کردم هیچ مشکلی نداشت منتها برای هر یک از اعداد یه مسیج باکس میاد و می پرسه که می خوای فرمتش عوض بشه یا نه

کنترل

[0] صندوق پستی

[#] صفحه بعدی

Go to full version