Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

أضف 1000 فاصل مع VBA

إضافة 1000 فاصل مع Kutools for Wordفكرة جيدة 3


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

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

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


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

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

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

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

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


أضف 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 مفتاح ، تم إدخال ألف فاصل في الرقم المحدد.
doc إضافة ألف فاصل 3


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

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

كوتولس للكلمة, مع أكثر من {module753} وظائف يدوية ، تجعل مهامك أسهل. 

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

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

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

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

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

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


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

 

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (2)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على الماكرو الخاص بك. لكن بها مشكلتان:
1) بعد استخدام الماكرو ، ستتم إزالة الصفر البادئ من الأرقام مثل رقم الهاتف !!!
2) الماكرو يعمل بشكل سيئ مع أكثر من 30 رقما. !!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hi
أبسط طريقة هي نسخ "002C" ولصقها في مربع "رمز الحرف" والنقر فوق إدراج.
لا حاجة لتحديد Verdana أو Basic Latin
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL