كيفية إزالة سطر فاصل الحاشية السفلية / التعليقات الختامية في مستند 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

---

أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

• يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
• أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
• دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
• قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
• قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

التفاصيل حمل التطبيق الآن شراء