تحويل تحويل المبلغ من الأحرف الصغيرة إلى الأحرف الكبيرة في Word (جماعيًا) — إنجليزي وصيني

هل تحتاج إلىتحويل الأرقام إلى كلمات عملة في Word—حتى تظهر المبالغ كنص مكتوب بالحروف في الفواتير أو العقود أو الشيكات؟ لست وحدك! لا يوفّر Word طريقة مدمجة بسيطة لكتابة قيم المال بالحروف بشكل جماعي، خاصةً عند وجود مبالغ عديدة في المستند.

فيما يلي طريقتان موثوقتان لتحقيق ذلك:(1) سير عمل «تلقائي» في Excel (استخدام VBA لإنشاء كلمات العملة، ثم نسخها ولصقها في Word—يتطلب إعدادًا أكثر ووقتًا أطول)، و(2) طريقة أسرع في Word بنقرات قليلةباستخدام Kutools for Word (الأفضل عندما تريد البقاء في Word وتحويل مبالغ متعددة دفعة واحدة).

💡 التنقّل السريع:

• ما المقصود بـ«كلمات العملة» (مع أمثلة)
• الطريقة 1 — في Excel: التحويل إلى كلمات العملة باستخدام VBA + نسخ ولصق في Word
• الطريقة 2 — في Word: نقرة واحدة للتحويل إلى كلمات العملة باستخدام Kutools for Word
  • تحويل الأرقام إلى كلمات العملة الإنجليزية (دفعةً واحدة)
  • تحويل الأرقام إلى كلمات العملة الصينية (دفعةً واحدة)
• مقارنة بين Excel وKutools
• استكشاف الأخطاء وإصلاحها
• الأسئلة الشائعة

ما المقصود بـ«كلمات العملة» (مع أمثلة)

تشير عبارة «كلمات العملة» إلى تحويل المبالغ الرقمية إلى صيغتها المكتوبة بالأحرف، مثل: 1234.56 → «ألف ومائتان وأربعة وثلاثون دولارًا وستة وخمسون سنتًا». ويُستخدم هذا الأسلوب بشكل شائع في العقود والفواتير والشيكات وأوامر الشراء ومستندات الاسترداد.

الطريقة 1 — في Excel: التحويل إلى كلمات العملة باستخدام VBA + النسخ واللصق في Word

يُعدّ هذا الأسلوب مفيدًا عندما تكون مبالغك موجودة بالفعل في جدول بيانات، وتريد ببساطة إنشاءكلمات العملةفي Excel، ثمنسخها إلى Wordخلال ثوانٍ.

الخطوة 1 — إعداد جدول Excel الخاص بك

1. في Excel، أنشئ جدولًا كهذا: المبلغ (أرقام) والمبلغ_بالكلمات (سيتم إنشاؤه).
2. تأكد من أن المبالغ أرقامًا صحيحة (وليست نصوصًا). وإذا لزم الأمر، فحوّلها أولًا باستخدام «النص إلى القيمة».
   

الخطوة 2 — إضافة دالة VBA (UDF) لتحويل تحويل المبلغ من الأحرف الصغيرة إلى الأحرف الكبيرة

1. في Excel، اضغط علىAlt + F11 لفتح محرر VBA.
2. انقر علىإدراج > وحدة نمطية.
3. الصق كود VBA أدناه في الوحدة النمطية.
4. احفظ الملف باسم.xlsm (ملف مصنف يحتوي على ماكرو).

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

الخطوة 3 — اسحب لأسفل لتحويل عدة أرقام دفعة واحدة (بالجملة)

1. في عمودالمبلغ_بالكلمات، أدخل:=CurrencyWordsUSD(A2) (عدّل مرجع الخلية ليتناسب مع جدولك).
   
2. اسحب لأسفل لتحويل جميع الصفوف.
   
3. اختياري (موصى به): انسخ عمودالمبلغ_بالكلمات، ثم الصقه كـقيملتثبيت النتائج.
   

الخطوة 4 — نقل النتائج إلى Word (نسخ ولصق سريع)

1. في Excel، حدد خلاياالمبلغوالمبلغ_بالكلماتالتي تحتاجها، ثم اضغط علىCtrl + C.
2. في Word، انقر في المكان الذي تريد أن تظهر فيه النتائج، ثم اضغطCtrl + V.
   

الطريقة 2 — في Word: نقرة واحدة لتحويل إلى كلمات العملة باستخدام Kutools for Word

لأفضل سير عمل يبدأ من Word، يوفّر لك Kutools for Word أمرين مخصصين:تحويل الأرقام إلى كلمات العملة الإنجليزيةوتحويل الأرقام إلى كلمات العملة الصينية. وبضغطة واحدة، يمكنك تحويل المبلغ مباشرةً من الأحرف الصغيرة إلى الأحرف الكبيرة داخل مستندك.

تحويل الأرقام إلى كلمات العملة الإنجليزية (دفعةً واحدة)

بعدتنزيل وتثبيت Kutools for Wordمن الموقع الرسمي، قم بما يلي:

1. في Word، حدد النص الذي يحتوي على الأرقام التي ترغب في تحويلها.

   تلميح: إذا لم تحدد أي جزء، يمكنك تطبيق الأداة علىالمستند بأكمله.

2. انقر علىKutools > إدراج > تحويل الأرقام إلى كلمات عملة إنجليزية.
   

النتيجة: يقوم Kutools فورًا باستبدال الأرقام بكلمات العملة الإنجليزية في المحتوى المحدد (أو في المستند بأكمله).

تحويل الأرقام إلى كلمات العملة الصينية (دفعةً واحدة)

بعدتنزيل وتثبيت Kutools for Wordمن الموقع الرسمي، قم بما يلي:

1. في Word، حدد النص الذي يحتوي على الأرقام التي ترغب في تحويلها إلى كلمات عملة صينية.

   تلميح: إذا لم تُحدِّد أي شيء، فستقوم الأداة بتحويل الأرقام فيالمستند بأكمله.

2. انقر علىKutools > إدراج > تحويل الأرقام إلى كلمات عملة صينية.
   

النتيجة: يقوم Kutools فورًا باستبدال الأرقام بكلمات العملة الصينية في المحتوى المحدد (أو في المستند بأكمله).

مقارنة بين Excel وKutools

الملخص:لأسرع سير عمل يبدأ من Word، استخدمKutools for Word لتحويل عدة مبالغ إلى كلمات العملة بنقرات قليلة (في التحديد أو في المستند بأكمله). اختر VBA في Excel فقط إذا كنت تعمل بالفعل في Excel ولا تمانع في إعداد إضافي.

استكشاف الأخطاء وإصلاحها

الأسئلة الشائعة