Note: The other languages of the website are Google-translated. Back to English

كيفية تحويل الرقم إلى كلمات في مستند Word؟

تتحدث هذه المقالة عن طريقة تحويل الأرقام إلى كلمات إنجليزية في مستند Word ، يرجى الاستمرار لعرض التفاصيل إذا كنت مهتمًا بها.

تحويل الأرقام إلى الكلمات الإنجليزية باستخدام VBA

تحويل الأرقام إلى الكلمات الإنجليزية في Excel باستخدام Kutools for Excel


تحويل الأرقام إلى الكلمات الإنجليزية باستخدام VBA

1. حدد الرقم الذي تريد تحويله إلى كلمات ، اضغط ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، وانسخ الرموز أدناه والصقها في ملف وحدة النصي.

فبا: تحويل الرقم إلى كلمات

Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
    Dim xDigit As Double
    Dim xBuff As String
    On Error Resume Next
    Selection.MoveLeft wdWord, 1, wdMove
    Selection.MoveRight wdWord, 1, wdExtend
    xDigit = Val(Trim(Selection.Text))
    If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
    If xDigit > 999999 Then
        If xDigit <= 999999999 Then
            xBuff = Trim(Int(Str(xDigit / 1000000)))
            Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
            Selection.MoveLeft wdWord, 1, wdExtend
            xBuff = Selection.Text & " million "
            xDigit = Right(Str(xDigit), 6)
        End If
    End If
    If xDigit <= 999999 Then
        Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
        Selection.MoveLeft wdWord, 1, wdExtend
        xDigit = xBuff & Selection.Text
        Selection.TypeText xDigit + " "
    Else
        MsgBox "Number too large", vbOKOnly, "Kutool for Word"
    End If
End Sub

3. صحافة F5 مفتاح لتشغيل الكود ، الآن تم تحويل الرقم إلى كلمات.
رقم الوثيقة إلى الكلمة 1

ملاحظة: يعمل الرمز برقم واحد فقط في كل مرة.


تحويل الأرقام إلى الكلمات الإنجليزية مع كوتولس ل إكسيل

إذا كنت تريد تحويل الأرقام إلى كلمات في ورقة Excel ، فهناك أداة مفيدة - أرقام إلى كلمات من Kutools for Excel ، والذي يمكنه تحويل الأرقام إلى كلمات إنجليزية أو صينية ، أو تحويل الأرقام إلى عملة إنجليزية أو عملة صينية.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد الخلايا التي تريد تحويل الأرقام إلى كلمات ، ثم انقر فوق كوتولس > وصف المنتج > أرقام إلى كلمات.
رقم الوثيقة إلى الكلمة 1

2. في مربع حوار الفرقعة ، تحقق الانجليزية و لم يتم التحويل إلى العملة خيارات.
رقم الوثيقة إلى الكلمة 1

3. انقر Ok or قم بالمشاركة، سيتم تحويل الأرقام المحددة إلى كلمات.


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL