كيفية تحديد جميع الحواشي السفلية في مستند Word؟

Author: Siluvia Last Modified: 2025-05-30

عادةً، عند تحديد المستند بالكامل باستخدام مفاتيح Ctrl + A، سيتم استبعاد جميع الحواشي السفلية من التحديد. إذا كنت تريد فقط تحديد جميع الحواشي السفلية في المستند، كيف يمكنك القيام بذلك؟ يقدم لك هذا المقال ثلاث طرق لحل هذه المشكلة.

تحديد جميع الحواشي السفلية في مستند باستخدام Ctrl + A

تحديد جميع الحواشي السفلية في مستند باستخدام ميزة تحديد النصوص ذات التنسيق المماثل

تحديد جميع الحواشي السفلية في مستند باستخدام كود VBA

تحديد جميع الحواشي السفلية في مستند باستخدام Ctrl + A

يمكنك استخدام الاختصار Ctrl + A لتحديد جميع الحواشي السفلية دفعة واحدة في مستند Word. يرجى اتباع الخطوات التالية:

انقر لوضع المؤشر عند أي حاشية سفلية في المستند الخاص بك، واضغط على مفاتيح Alt + A معًا، ثم يتم تحديد جميع الحواشي السفلية في المستند الحالي فورًا.

تحديد جميع الحواشي السفلية في مستند باستخدام ميزة تحديد النصوص ذات التنسيق المماثل

ميزة تحديد النصوص ذات التنسيق المماثل يمكن أن تساعد في تحديد جميع الحواشي السفلية في المستند.

1. انقر لوضع المؤشر عند أي حاشية سفلية في المستند الخاص بك.

2. في علامة التبويب الرئيسية، انقر فوق تحديد > تحديد كل النصوص ذات التنسيق المماثل. شاهد لقطة الشاشة:

Select All Text With Similar Formatting option on the Home tab on the ribbon

ثم يتم تحديد جميع الحواشي السفلية في المستند الحالي فورًا.

تحديد جميع الحواشي السفلية في مستند باستخدام كود VBA

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

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

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

كود VBA: تحديد جميع الحواشي السفلية في مستند Word

Sub SelectAllFootnoteTexts()
    Dim xDoc As Document
    Dim xRange As Range
    Set xDoc = ActiveDocument
    If xDoc.Footnotes.Count > 0 Then
        Set xRange = xDoc.Footnotes(1).Range
        xRange.WholeStory
        xRange.Select
    End If
End Sub

VBA window with the above code pasted into a module