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

Author: Siluvia Last Modified: 2025-05-30

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

تحويل التعليقات إلى حواشي سفلية أو هوامش باستخدام كود VBA

تحويل التعليقات إلى حواشي سفلية أو هوامش باستخدام كود VBA

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

1. افتح المستند الذي يحتوي على التعليقات التي تريد تحويلها إلى حواشي سفلية أو هوامش واضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ الكود البرمجي VBA أدناه في نافذة الوحدة.

VBA window with a module inserted

كود 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

كود VBA: تحويل التعليقات إلى هوامش:

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 الذي قمت بتطبيقه.

قم بالمزيد في وقت أقل مع Kutools المُحسّن بالذكاء الاصطناعي لبرنامج Word

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

تلخيص وإعادة كتابة وتأليف وترجمة المحتوى فوراً.
تدقيق النصوص في الوقت الفعلي مع اقتراحات حول القواعد والنحو والأسلوب أثناء الكتابة.
إعادة صياغة وترجمة المحتوى مع الحفاظ على التخطيط والنمط والهيكل دون تغيير.
ترجمة المحتوى الخاص بك إلى أكثر من 40 لغة بسهولة، مما يوسع نطاق وصولك عالميًا.
الحصول على مساعدة فورية وأفكار ذكية بناءً على محتوى المستند الحالي.
اسأل عن كيفية إكمال مهمة - مثل إزالة فواصل الأقسام - وسيقوم الذكاء الاصطناعي بإرشادك أو القيام بذلك نيابةً عنك.
حجب المعلومات الحساسة أو السرية في غضون ثوانٍ لضمان الخصوصية الكاملة.
كل الأدوات تعمل بسلاسة داخل Word، دائمًا في متناول اليد.

إنشاء وتحسين وترجمة وتلخيص وتأمين المستندات بسهولة.
تحسين القواعد والوضوح والأسلوب أثناء الكتابة في الوقت الفعلي.
إعادة صياغة وترجمة المحتوى بدون أي تغييرات في التخطيط أو التنسيق.
اسأل عن كيفية إكمال مهمة - مثل إزالة فواصل الأقسام - وسيقوم الذكاء الاصطناعي بإرشادك أو القيام بذلك نيابةً عنك.
كل الأدوات تعمل بسلاسة داخل Word، دائمًا في متناول اليد.