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

Author: Sun Last Modified: 2025-08-06

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

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

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

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

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

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

حدد الرقم الذي تريد تنسيقه باستخدام فواصل الآلاف، ثم اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

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

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

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

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

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

تحميل الآن

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

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

ملاحظات:

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

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

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