كيفية تحويل جميع الحواشي الختامية إلى نص عادي في Word

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

تحويل الحواشي الختامية إلى نص يدويًّا

تحويل الحواشي الختامية إلى نص باستخدام Kutools for Word

تحويل الحواشي الختامية إلى نص باستخدام VBA

---

تحويل الحواشي الختامية إلى نص يدويًّا

اتبع الخطوات التالية لتحويل الحواشي الختامية يدويًّا إلى نص عادي في Word:

1. ضع المؤشر في أي مكان داخل قسم الحواشي الختامية، ثم اضغطCtrl + A لتحديد جميع الحواشي الختامية في المستند.
2. اضغطCtrl + C لنسخ الحواشي الختامية المحددة.
3. اضغطCtrl + End لتحريك المؤشر إلى نهاية المستند، مباشرةً قبل قسم الحواشي الختامية.
4. اضغطCtrl + V للصق الحواشي الختامية المنقولة في نهاية المستند. ستحتفظ الحواشي الختامية بترتيبها الأصلي، لكنها ستُحوَّل إلى نص عادي.

   

5. استبدل يدويًّا الرقم "1" الموجود قبل كل حاشية ختامية منقولة برقمها الأصلي عند الحاجة.

---

تحويل الحواشي الختامية إلى نص بسهولة باستخدام Kutools for Word

قد يكون تحويل الحواشي الختامية إلى نص يدويًّا في Word أمرًا مملًّا، خاصةً للمبتدئين غير المطلعين على VBA. لكن معKutools for Word، يمكنك إنجاز هذه المهمة بسرعة بنقرة واحدة فقط باستخدام أداةConvert Endnotes to Text.

1. انقرKutools>Convert>Convert Endnotes to Text.

   

بمجرد النقر علىConvert Endnotes to Text، سيتم تحويل الحواشي الختامية في مستندك فورًا إلى نص، كما هو موضح في لقطات الشاشة أدناه:

---

تحويل الحواشي الختامية إلى نص باستخدام VBA

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

1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرModuleمن تبويبInsert، ثم انسخ والصق كود VBA التالي في نافذةModule.

   Sub convertendnote()
   Dim aendnote As Endnote
   For Each aendnote In ActiveDocument.Endnotes
   ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
   & vbTab & aendnote.Range
   aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
   Next aendnote
   For Each aendnote In ActiveDocument.Endnotes
   aendnote.Reference.Delete
   Next aendnote
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find.Replacement.Font
   .Superscript=True
   End With
   With Selection.Find
   .Text="(a)([0-9]{1,})(a)"
   .Replacement.Text="\2"
   .Forward=True
   .Wrap=wdFindContinue
   .Format=True
   .MatchWildcards=True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   End Sub

3. انقر زرRun أو اضغطF5 لتنفيذ كود VBA.

عرض توضيحي: تحويل جميع الحواشي الختامية إلى نصوص بسرعة في Word

---

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

• تحويل عدة تحويل الجداول إلى نص في Word
• تحويل المعادلة إلى صورة في Word

---