كيف يمكن إزالة خط فاصل الهوامش السفلية أو هوامش النهاية في مستند Word؟

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

إزالة خط فاصل الهوامش السفلية/هوامش النهاية في Word

إزالة خط فاصل الهوامش السفلية/هوامش النهاية باستخدام كود VBA

إزالة خط فاصل الهوامش السفلية/هوامش النهاية في Word

يمكنك إزالة خط فاصل الهوامش السفلية أو هوامش النهاية في Word باتّباع هذه الخطوات:

1. في المستند الذي تريد إزالة خط فاصل الهوامش السفلية أو هوامش النهاية منه، انقر «عرض» > «مسودة».

   

2. انقر «مراجع» > «إظهار الملاحظات».

   

3. إذا احتوى المستند على هوامش سفلية وهوامش نهاية معًا، فسيظهر مربع حوار «إظهار الملاحظات». اختر طريقة العرض التي تفضلها، ثم انقر «موافق»—على سبيل المثال، اختر «عرض منطقة الهوامش السفلية».

   

   ملاحظة:إذا كان مستندك يحتوي فقط على هوامش سفلية أو هوامش نهاية، فتخطَ هذه الخطوة وانتقِل إلى السجل التالي.

4. الآن يظهر قسم «الملاحظات» في نهاية المستند. اختر «فاصل الهوامش السفلية» من القائمة المنسدلة «الهوامش السفلية»، ثم حدد خط الفاصل واضغط مفتاحDelete.

   

5. بدّل المستند مرة أخرى إلى طريقة عرض «تخطيط الطباعة».

   

لقد تم إزالة خط الفاصل من المستند الآن.

إزالة خطوط فواصل الهوامش السفلية/هوامش النهاية باستخدام كود VBA

إذا كانت الطريقة اليدوية غير مريحة، فيمكنك استخدام كود VBA التالي لإزالة خط فاصل الهوامش السفلية أو كليهما (الهوامش السفلية وهوامش النهاية) بسرعة:

1. في مستند Word، اضغطAlt + F11 لفتح نافذة «مايكروسوفت Visual Basic for Applications».
2. في نافذة VBA، انقر «إدراج» > «وحدة برمجية»، ثم الصق الكود التالي في الوحدة البرمجية.

   

   كود VBA: إزالة خط فاصل الهوامش السفلية من مستند Word

   Sub DeleteTheFootnoteSeparator()
   'Updated by ExtendOffice 20181112
       If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
       If ActiveWindow.View.SplitSpecial = wdPaneNone Then
           ActiveWindow.ActivePane.View.Type = wdNormalView
       Else
           ActiveWindow.View.Type = wdNormalView
       End If
       With ActiveWindow.ActivePane.View
           If .Type = wdPrintView Or .Type = wdWebView Or _
           .Type = wdPrintPreview Then
               ActiveWindow.View.SeekView = wdSeekFootnotes
           Else
               ActiveWindow.View.SplitSpecial = wdPaneFootnotes
           End If
       End With
       ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
       With Selection
           .MoveRight Unit:=wdCharacter
           .TypeBackspace
           .TypeBackspace
       End With
       ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
       With Selection
           .MoveRight Unit:=wdCharacter, Count:=1
           .TypeBackspace
           .TypeBackspace
           With .ParagraphFormat
               .LineSpacingRule = wdLineSpaceMultiple
               .LineSpacing = LinesToPoints(0.06)
           End With
       End With
       ActiveWindow.View.Type = wdPrintView
   End Sub

3. اضغطF5 لتشغيل الكود، وستُزال جميع خطوط فواصل الهوامش السفلية فورًا.

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

🤖مزايا KUTOOLS AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل دفعة إلى PDF...

✏تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الصفوف والأعمدة في الجدول / تحويل الجدول إلى نص...

🧹تنظيف سهل: امسح بسهولةالمسافات الزائدة،فاصل المقطع،مربع النص، أوالروابط التشعبية. وللمزيد من أدوات الإزالة، انتقل إلى مجموعةإزالة...

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

🔍اختيارات دقيقة: حدد بدقةصفحات محددة / الجداول / الأشكال / فقرة عنوان. وعزّز تجربة التنقّل لديك باستخدامالمزيد من ميزات ال...تحديد

⭐تحسينات مميزة: التنقّل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين مستندات Windows / 11 أداة تحويلأدوات...

🌍يدعم أكثر من 40 لغة: استخدم كوتولز باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

 

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

⬇️ تنزيل الآن🎁 اشترِ الحزمة الكاملة📖 معرفة المزيد

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

• 🤖KUTOOLS AI ميزات:مساعد الذكاء الاصطناعي/مساعد الوقت الحقيقي/تلميع فائق/ترجمة فائقة/إخفاء المعلومات باستخدام الذكاء الاصطناعي/التدقيق اللغوي بالذكاء الاصطناعي
• 📘إتقان المستندات:تقسيم الصفحات/دمج المستندات/تحويل دفعة إلى PDF
• ✏تحرير المحتوى:البحث والاستبدال الجماعي/تغيير حجم جميع الصور
• 🧹تنظيف سهل:إزالة المسافات الزائدة/إزالة فاصل المقطع
• ➕إدراجات إبداعية:إدراج فواصل الآلاف/إدراج مربع اختيار/إنشاء رمز QR
• 🌍يدعم أكثر من 40 لغة: كوتولز يتحدث لغتك – يدعم أكثر من 40 لغة!

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools