كيفية إزالة سطر فاصل الحاشية السفلية / التعليقات الختامية في مستند Word؟
عند إدراج الحواشي السفلية أو التعليقات الختامية في مستند Word ، ستجد دائمًا خط فاصل أفقي أعلى نصوص الحواشي السفلية أو التعليقات الختامية. إذا كنت تريد التخلص من هذه الخطوط الفاصلة ، فيرجى تجربة الطرق الواردة في هذه المقالة.
قم بإزالة سطر فاصل الحواشي السفلية / التعليقات الختامية في Word
قم بإزالة سطر فاصل الحواشي السفلية / التعليقات الختامية برمز VBA
قم بإزالة سطر فاصل الحواشي السفلية / التعليقات الختامية في Word
يمكنك إزالة سطر فاصل الحواشي السفلية أو التعليقات الختامية في Word كما يلي.
1. في المستند ستزيل السطر الفاصل للحاشية السفلية أو التعليقات الختامية ، انقر فوق المزيد > مسودة.
2. ثم اضغط مراجع حسابات > وتظهر الملاحظات كما هو موضح أدناه لقطة الشاشة.
3. إذا كان هناك كلا من الحواشي السفلية والتعليقات الختامية في المستند الخاص بك ، أ وتظهر الملاحظات سيظهر مربع الحوار ، يرجى تحديد خيار ما تحتاج إليه ثم النقر فوق OK زر. هنا أختار عرض الحاشية منطقة.
ملاحظات: إذا كانت الحاشية السفلية أو التعليق الختامي موجودة فقط في المستند ، فتجاهل هذه الخطوة وانتقل إلى الخطوة 4.
4. الآن ملاحظة يتم عرض القسم في نهاية المستند ، يرجى تحديد فاصل الحواشي السفلية في ال الحواشي القائمة المنسدلة ، حدد الخط الفاصل ثم اضغط على حذف مفتاح لحذفه. انظر لقطة الشاشة:
5. التحول إلى تخطيط الطباعة عرض الوثيقة.
ثم يمكنك رؤية السطر الفاصل للحاشية السفلية تمت إزالته على الفور من المستند.
ملاحظات: لإزالة سطر فاصل التعليقات الختامية ، ما عليك سوى التحقق عرض التعليق الختامي منطقة في أعلاه وتظهر الملاحظات الحوار ، ثم حدد فاصل التعليقات الختامية في ال التعليقات الختامية قائمة منسدلة.
قم بإزالة سطور فاصل الحواشي السفلية / التعليقات الختامية باستخدام كود VBA
إذا كانت الطريقة المذكورة أعلاه غير مناسبة لك ، فيمكنك تجربة رموز VBA التالية لإزالة جميع الأسطر الفاصلة للحاشية السفلية أو كلا الحاشية السفلية والتعليق الختامي من المستند بسرعة.
1. في المستند الذي ستقوم بإزالة السطر الفاصل للحاشية السفلية ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.
كود فبا: إزالة سطر فاصل الحواشي السفلية في المستند
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 مفتاح لتشغيل الكود. ثم تتم إزالة جميع الأسطر الفاصلة في الحواشي السفلية على الفور من المستند.
ملاحظات: إذا كنت تريد إزالة كافة الأسطر الفاصلة للحاشية السفلية والتعليقات الختامية ، فيمكن أن يساعدك رمز VBA أدناه.
كود فبا: إزالة سطور فاصل الحواشي السفلية والتعليقات الختامية في المستند
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
أفضل أدوات إنتاجية المكتب
كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى / إعادة كتابة النص / تلخيص المستندات / الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في أدخل المجموعة
🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / الجداول / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل