كيفية تحويل التعليقات إلى حواشي سفلية أو هوامش في Microsoft Word؟
لنفترض أن هناك العديد من التعليقات في مستند Word الخاص بك، فكيف يمكنك تحويل جميع هذه التعليقات إلى حواشي سفلية أو هوامش دفعة واحدة؟ يوفر هذا المقال طرق VBA لتحقيق ذلك.
تحويل التعليقات إلى حواشي سفلية أو هوامش باستخدام كود VBA
تحويل التعليقات إلى حواشي سفلية أو هوامش باستخدام كود VBA
الكود البرمجي VBA أدناه يمكن أن يساعدك في تحويل جميع التعليقات في المستند الحالي بسرعة إلى حواشي سفلية أو هوامش. الرجاء اتباع الخطوات التالية.
1. افتح المستند الذي يحتوي على التعليقات التي تريد تحويلها إلى حواشي سفلية أو هوامش واضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ الكود البرمجي VBA أدناه في نافذة الوحدة.
كود 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، دائمًا في متناول اليد.
تعرف على المزيد حول Kutools for Word تحميل الآن
✨ Kutools لـ Office – تثبيت واحد، خمس أدوات قوية!
يشمل Office Tab Pro · Kutools لـ Excel · أدوات Kutools لـ Outlook · Kutools لـ Word · Kutools لـ PowerPoint
📦 احصل على جميع الأدوات الخمسة في مجموعة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وفر وقتك وزد إنتاجيتك فوراً
أفضل أدوات زيادة الإنتاجية لمكتبك
Kutools لـ Word - 100+ أدوات لـ Word
