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

في Excel ، يمكنك استخدام تطبيق وظيفة فاصل 1000 لإضافة فاصل 1000 إلى الأرقام تلقائيًا ، لكن هل تعرف كيفية إضافة فاصل 1000 إلى أرقام في مستند Word؟ أقدم هنا بعض الحيل حول التعامل مع هذه الوظيفة في Word.

إضافة 1000 فاصل مع الاختصارات

أضف 1000 فاصل بالرمز

أضف 1000 فاصل مع VBA

إضافة 1000 فاصل مع Kutools for Word

إضافة 1000 فاصل مع الاختصارات

في Word ، يمكنك إضافة فاصل الألف باختصارات.

ضع المؤشر في المكان الذي تريد إدخال فاصل 1000 ، اضغط عليه قديم مفتاح واضغط 044 في لوحة المفاتيح الرقمية.

أضف 1000 فاصل بالرمز

أو يمكنك إدخال فاصل 1000 باستخدام وظيفة الرمز.

1. ضع المؤشر في المكان الذي تريد إدخال فاصل 1000 فيه ، انقر إدراج > رمز > المزيد من الرموز.

2. في ال رمز الحوار تحت رموز حدد علامة التبويب فيردانا من الخط القائمة المنسدلة ، ثم حدد اللاتينية الأساسية من فرعية القائمة المنسدلة ، حدد الآن فاصل 1000 من القائمة ، انقر فوق إدراج لإدخالها.

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

أضف 1000 فاصل مع VBA

في بعض الأحيان ، يلزم إدخال رقم واحد عدة 1000 فاصل. في هذه الحالة ، يمكنك استخدام التعليمات البرمجية لـ VBA.

1. حدد الرقم الذي تريد إدخال ألف فاصل ، اضغط ALT + F11 مفاتيح لفتح Microsoft Visual Basic للتطبيقات نافذة.

2. انقر إدراج > وحدة، انسخ والصق الكود أدناه إلى وحدة.

فبا: أضف 1000 فاصل إلى رقم

Sub AddCommasToNumbers()
'UpdatebyExtendoffice20181106
    Dim xWarp As Integer
    If Selection.Type = wdSelectionIP Then
        ActiveDocument.Range(0, 0).Select
        xWarp = wdFindContinue
    Else
        xWarp = wdFindStop
    End If
    With Selection.Find
        .ClearFormatting
        .Text = "[0-9]{4,}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = xWarp
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        Do While .Execute
            Selection.Text = Format$(Selection.Text, "#,##0")
            If xWarp = wdFindContinue Then
                Selection.Collapse wdCollapseEnd
            Else
                Exit Sub
            End If
        Loop
    End With
End Sub

3. صحافة F5 مفتاح ، تم إدخال ألف فاصل في الرقم المحدد.

إضافة 1000 فاصل مع Kutools for Word

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

بعد تثبيت Kutools for Word ، يرجى القيام بما يلي:（تنزيل مجاني Kutools for Word الآن!)

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

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

الآن تم إدراج جميع الأرقام 1000 فاصل.

إذا كنت تريد إضافة 1000 فاصل إلى الأرقام المحددة ، فحدد الأرقام وانقر كوتولس > إضافة فاصل الألف.

ملاحظة: إذا كنت تريد إزالة آلاف الفواصل ، يمكنك النقر فوق Kutools> إزالة> إزالة ألف فاصل.

  أضف ألف فاصل

---

أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

• يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
• أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
• دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
• قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
• قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

التفاصيل حمل التطبيق الآن شراء