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

Author: Sun Last Modified: 2025-05-30

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

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

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

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

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

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

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

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

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

Kutools for Word،المزود بذكاء اصطناعي 🤖، يقدم أكثر من 100 ميزات عملية لتبسيط مهامك.

تحميل الآن

انقر على Kutools > Convert > Convert Endnotes to Text.

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

Document with endnotes converted to text

Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن!

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

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

اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

انقر Module من إدراج التبويب، ثم انسخ والصق الكود التالي من 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