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

كيفية تحويل التعليقات إلى الحواشي السفلية أو التعليقات الختامية في Microsoft Word؟

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

تحويل التعليقات إلى حواشي سفلية أو تعليقات ختامية برمز VBA


تحويل التعليقات إلى حواشي سفلية أو تعليقات ختامية برمز VBA

يمكن أن تساعدك رموز VBA أدناه في تحويل جميع التعليقات في المستند الحالي بسرعة إلى الحواشي السفلية أو التعليقات الختامية. الرجاء القيام بما يلي.

1. افتح المستند الذي يحتوي على التعليقات التي ستقوم بتحويلها إلى الحواشي السفلية أو التعليقات الختامية ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

كود فبا: تحويل التعليقات إلى الحواشي السفلية:

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

كود فبا: تحويل التعليقات إلى تعليقات ختامية:

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود.

ثم يتم تحويل جميع التعليقات في المستند الحالي إلى الحواشي السفلية أو التعليقات الختامية فورًا بناءً على كود VBA الذي قمت بتطبيقه.


مقالات ذات صلة:

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

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

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

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

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

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

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

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

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

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is amazing. Thanks so much!!! really useful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations