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

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

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

---

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

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

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

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

كود 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 الذي طبّقته.

---

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

• كيف يمكن إضافة صفحة جديدة أو نص بعد الحواشي الختامية في مستند Word؟
• كيف يمكن تحديد جميع الحواشي السفلية في مستند Word؟