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

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

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

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

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

---

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

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

1. حدد الرقم الذي تريد تنسيقه بفواصل الآلاف، ثم اضغط علىAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
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، وستُضاف فواصل الآلاف إلى الرقم المحدد.

   

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

---

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

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

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

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

   

2. ستظهر نافذة منبثقة تسألك عما إذا كنت تريد تطبيق هذه الوظيفة على المستند بالكامل، فانقر فوقنعم.

   

3. الآن، تمت إضافة فواصل الآلاف إلى جميع الأرقام.

   

---

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