KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفصنتاريخ التعديل

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

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

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

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

1. حدد الرقم الذي تريد تحويله إلى كلمات، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. انقر علىإدراج > وحدة البرمجة (Module)، ثم انسخ التعليمات البرمجية أدناه والصقها في نافذة وحدة البرمجة(Module).

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

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

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

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

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

Kutools لـ Excel،مزوَّد بالذكاء الاصطناعي🤖، ويقدّم أكثر من 300 ميزة مفيدة لتبسيط مهامك.

بعدالتثبيت المجاني لـKutools لـ Excel، يُرجى اتباع الخطوات التالية:

1. حدد الخلايا التي تريد تحويلها إلى كلمات، ثم انقر علىKutools > المحتوى (Content) > تحويل إلى كلمات.
خيار تحويل الأرقام إلى كلمات في تبويب Kutools على شريط أدوات Excel

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

3. انقر علىموافق (Ok)أوتطبيق (Apply)، وسيتم تحويل الأرقام المحددة إلى كلمات.

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

🤖مزايا KUTOOLS AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل دفعة إلى PDF...

✏تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الصفوف والأعمدة في الجدول / تحويل الجدول إلى نص...

🧹تنظيف سهل: امسح بسهولةالمسافات الزائدة،فاصل المقطع،مربع النص، أوالروابط التشعبية. وللمزيد من أدوات الإزالة، انتقل إلى مجموعةإزالة...

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

🔍اختيارات دقيقة: حدد بدقةصفحات محددة / الجداول / الأشكال / فقرة عنوان. وعزّز تجربة التنقّل لديك باستخدامالمزيد من ميزات ال...تحديد

⭐تحسينات مميزة: التنقّل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين مستندات Windows / 11 أداة تحويلأدوات...

🌍يدعم أكثر من 40 لغة: استخدم كوتولز باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

Kutools for Word تبويبات على الشريط
 
 

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools