جدا کردن 3 رقم 3 رقم در ورد word 2013

سلام برای جدا کردن 3 رقم 3 رقم در آفیس در اکسل این کار ساده هست ولی در word کمی قضیه فرق میکنه.

فرقی نمی کنه آفیس شما چی هست.

دستورات زیر را مرحله به مرحله انجام بدهید.


1-ابتدای کار کد زیر را کپی کنید


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


2- برنامه word را باز کنید. کلید alt+F11 بزنید.

3-از منو، گزینه ماژول رو انتخاب کنید،یک ماژول جدید ایجاد میکنید متنی که بالا گفتم کپی کنید را اینجا PASTE کنید.

4-برای اجرا کافیه دکمه F5 را بزنید.

5- اگر خطای دیباگ داد، برید توی کنترل پنل ویندوز خودتون، از قسمت تنظیم زبان و کشور، ADDITIONAL SETTING علامت جدا کننده را از سیمیکالن به هر چیزی که مناسبه مثل کاما تغییر بدهید درست میشه.

باز هم میگم :

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

Run-time error '5560':

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

مرحله 5 را انجام بدید. #برای حل مشکل ترجیحا کاراکتر List separator را به "," تغییر دهید .

مجددا دکمه F5 را بزنید.


6- به سوالاتی که ورد می پرسه برای اجرا و افزودن ماژول پاسخ مثبت بدهید.

7- به فایل ورد برگردید و ماژول را روی اعداد اعمال کنید.


فرهاد رنجی

FARHAD RANJI


/ 0 نظر / 80 بازدید

Whoops, looks like something went wrong.