كيفية إزالة خط فاصل الحاشية/الهامش في مستند Word؟
عند إدراج الحواشي أو الهوامش في مستند Word، يظهر خط أفقي فاصل فوق نص الحاشية أو الهامش. إذا كنت ترغب في إزالة هذا الخط، جرّب الطرق المذكورة في هذه المقالة.
إزالة خط فاصل الحاشية/الهامش في Word
إزالة خط فاصل الحاشية/الهامش باستخدام كود VBA
إزالة خط فاصل الحاشية/الهامش في Word
يمكنك إزالة خط فاصل الحاشية أو الهامش في Word باتباع الخطوات التالية:
- في المستند الذي تريد إزالة خط فاصل الحاشية أو الهامش فيه، انقر على "عرض" > "مسودة".
- انقر على "مراجع" > "إظهار الملاحظات".
- إذا كان المستند يحتوي على الحواشي والهوامش معًا، ستظهر مربع حوار "إظهار الملاحظات". اختر العرض الذي تريده، ثم انقر على "موافق". على سبيل المثال، اختر "عرض منطقة الحاشية".
ملاحظة: إذا كان مستندك يحتوي فقط على الحواشي أو الهوامش، تخطى هذه الخطوة وانتقل إلى الخطوة التالية.
- الآن سيظهر قسم "الملاحظات" في نهاية المستند. اختر "فاصل الحاشية" من قائمة "الحواشي" المنسدلة، وحدد خط الفاصل واضغط على زر الحذف.
- قم بالتبديل بالمستند مرة أخرى إلى عرض "تخطيط الطباعة".
تم الآن إزالة خط الفاصل من المستند.

ملاحظة: لإزالة خط فاصل الهامش، حدد "عرض منطقة الهامش" في مربع الحوار "إظهار الملاحظات"، ثم اختر "فاصل الهامش" من القائمة المنسدلة.
إزالة خطوط فاصل الحاشية/الهامش باستخدام كود VBA
إذا كانت الطريقة اليدوية غير ملائمة، يمكنك استخدام الكود التالي لـ VBA لإزالة خط فاصل الحاشية أو كل من خط فاصل الحاشية والهامش بسرعة:
- في مستند Word، اضغط على Alt + F11 لفتح نافذة "Microsoft Visual Basic for Applications".
- في نافذة 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
- اضغط على F5 لتشغيل الكود. سيتم إزالة جميع خطوط فاصل الحاشية على الفور.
ملاحظة: استخدم الكود التالي لـ 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.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: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (الحفاظ على التنسيق) / ترجمة فائقة (الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...
📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...
✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...
🧹 تنظيف سهل: أزل المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...
➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...
🔍 تحديدات دقيقة: تحديد الصفحات المحددة / الجداول / الأشكال / فقرات العناوين / عزز التنقل مع المزيد من ميزات التحديد ...
⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند /11 أداة تحويل...
🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

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