Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية إضافة فواصل الآلاف إلى الأرقام في مستندات Word؟

Author Sun Last modified

يمكن أن يؤدي إضافة فواصل الآلاف إلى الأرقام في مستند Word إلى تحسين قابلية القراءة بشكل كبير، خاصة عند التعامل مع أرقام كبيرة. على الرغم من أن Microsoft Word لا يحتوي على ميزة مباشرة لإضافة فواصل الآلاف، إلا أن هناك طرقًا فعالة لتحقيق ذلك باستخدام VBA (Visual Basic for Applications) أو أداة عملية مثل Kutools for Word.

في هذا الدليل، سنرشدك خلال الخطوات لإضافة فواصل الآلاف للأرقام في مستند Word الخاص بك باستخدام كل من VBA وKutools for Word.

إضافة فواصل الآلاف باستخدام VBA

إضافة فواصل الآلاف باستخدام Kutools for Word good idea


إضافة فواصل الآلاف باستخدام VBA

يمكن أن تكون إضافة فواصل الآلاف إلى الأرقام الكبيرة مملة، خاصة إذا كنت بحاجة إلى القيام بذلك بشكل متكرر. باستخدام كود VBA، يمكنك أتمتة هذه العملية، مما يتيح لك ببساطة تحديد رقم والضغط على F5 لإضافتها فوراً.

  1. حدد الرقم الذي تريد تنسيقه باستخدام فواصل الآلاف، ثم اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  2. انقر إدراج > وحدة، ثم انسخ والصق الكود التالي في الوحدة المحرر.
    Sub InsertThousandSeparators()
        Dim selectedText As String
        Dim formattedText As String
        Dim decimalPos As Integer
        Dim wholePart As String
        Dim decimalPart As String
        Dim temp As String
        Dim i As Integer
        Dim charCount As Integer
        Dim trailingSpace As String
        Dim trailingParagraphMark As String
        
        If Selection.Type <> wdSelectionIP Then
            selectedText = Selection.Text
            trailingSpace = ""
            trailingParagraphMark = ""
            
            If Right(selectedText, 1) = " " Then
                trailingSpace = " "
                selectedText = Trim(selectedText)
            End If
            
            If Right(selectedText, 1) = Chr(13) Then
                trailingParagraphMark = Chr(13)
                selectedText = Left(selectedText, Len(selectedText) - 1)
            End If
            
            If IsNumeric(selectedText) Then
                decimalPos = InStr(1, selectedText, ".")
                
                If decimalPos > 0 Then
                    wholePart = Left(selectedText, decimalPos - 1)
                    decimalPart = Mid(selectedText, decimalPos + 1)
                Else
                    wholePart = selectedText
                    decimalPart = ""
                End If
                
                wholePart = Replace(wholePart, ",", "")
                
                temp = ""
                charCount = 0
                
                For i = Len(wholePart) To 1 Step -1
                    temp = Mid(wholePart, i, 1) & temp
                    charCount = charCount + 1
                    
                    If charCount Mod 3 = 0 And i > 1 Then
                        temp = "," & temp
                    End If
                Next i
                
                wholePart = temp
                
                If decimalPart <> "" Then
                    formattedText = wholePart & "." & decimalPart
                Else
                    formattedText = wholePart
                End If
                
                Selection.Text = formattedText & trailingSpace & trailingParagraphMark
            Else
                MsgBox "Please select a valid number."
            End If
        Else
            MsgBox "Please select a number first."
        End If
    End Sub
  3. اضغط على مفتاح F5، وسيتم إضافة فواصل الآلاف إلى الرقم المحدد.

    Thousand separators are inserted into the selected number

  4. لإضافة الفواصل إلى رقم آخر، ما عليك سوى تحديد الرقم الجديد ثم العودة إلى نافذة الوحدة والضغط على F5 مرة أخرى.

إضافة فواصل الآلاف باستخدام Kutools for Word

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

Kutools for Word،المزود بذكاء اصطناعي 🤖، يقدم أكثر من 100 ميزة عملية لتبسيط مهامك.

بعد تثبيت Kutools for Word، اتبع الخطوات التالية:

  1. لإضافة فواصل الآلاف إلى جميع الأرقام في المستند بالكامل، لا تقم بتحديد أي بيانات، واضغط على Kutools > إدراج > إضافة فاصل الآلاف.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. ستظهر نافذة منبثقة تسألك عما إذا كنت ترغب في تطبيق هذه الوظيفة على المستند بالكامل، انقر فوق نعم.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. الآن، تم إدراج فواصل الآلاف في جميع الأرقام.
    Thousand separators are inserted into all numbers

ملاحظات:

  • إذا كنت ترغب في إضافة فواصل الآلاف إلى الأرقام في نطاق محدد، حدد القسم أولاً، ثم انقر على Kutools > إدراج > إضافة فاصل الآلاف.
    Thousand separators are inserted into numbers in the selected range
  • لإزالة فواصل الآلاف، انقر على Kutools > إزالة > إزالة جميع فواصل الآلاف في النطاقات المحددة.
    Remove Thousand Separators option on the Kutools tab on the ribbon

عرض توضيحي: إضافة فواصل الآلاف إلى الأرقام في مستند Word

اكتشف علامة التبويب Kutools / Kutools Plus في هذا الفيديو من Kutools for Word. استمتع بـ 100+ ميزات وأدوات ذكاء اصطناعي مجانية بشكل دائم. قم بالتنزيل الآن!

أفضل أدوات زيادة الإنتاجية لمكتبك

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

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

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

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

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

إدراجات مبتكرة: إدراج الفواصل بالألاف / مربعات اختيار / أزرار راديو / رمز QR / باركود / عدة صور / اكتشف المزيد ضمن مجموعة إدراج...

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

تحسينات مميزة: التنقل إلى أي نطاق / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند / 11 أداة تحويل...

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 هل ترغب في تجربة هذه الميزات؟ قم بتنزيل Kutools لـ Word الآن! 🚀
 

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

يشمل Office Tab Pro · Kutools لـ Excel · أدوات Kutools لـ Outlook · Kutools لـ Word · Kutools لـ PowerPoint

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