انتقل إلى المحتوى الرئيسي

كيفية إضافة ألف فاصل للأرقام في مستند 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> إزالة> إزالة ألف فاصل.

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

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

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

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

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

إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في أدخل المجموعة

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

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

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi
A simpler way is just to copy "002C" and paste in the "character code" box and click insert.
no need to select Verdana or Basic Latin
This comment was minimized by the moderator on the site
Thanks for your macro. But it has two problem:
1) After using macro, leading zero of numbers like phone number will be removed!!!
2) Macro works bad for number with more than 30 digits.!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations