كيفية تحويل الرقم إلى كلمات في مستند 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 مفتاح لتشغيل الكود ، الآن تم تحويل الرقم إلى كلمات.

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

---

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

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

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

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

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

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