كيفية تحويل الرقم إلى كلمات في مستند 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 وظائف يدوية ، تجعل مهامك أكثر سهولة.

تحميل مجانا
مجاني كامل المواصفات خلال 30 يومًا

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

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