Note: The other languages of the website are Google-translated. Back to English

كيفية إزالة سطر فاصل الحاشية السفلية / التعليقات الختامية في مستند 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 ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (6)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكر!
عملت لي :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كان لديك أكثر من صفحة واحدة من الحواشي السفلية ، فستحتاج أيضًا إلى إزالة "فاصل متابعة الحاشية السفلية". هم بالتأكيد يجعلون من الصعب العثور عليها ؛ عندما تنقلك نقرة مزدوجة إلى ذلك. هذا ساعدني أيضًا ، راجع للشغل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً لأنك أنقذتني من رئيسي ، فقد كان مثل من فضلك افعل أي شيء أريده تقديمًا جيدًا وهذه الحواشي مثل الهراء. شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
باهِر! شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
si funciona، me ayudo para mi tesis، muchas gracias.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا أصلح مشكلتي! شكرًا لك!
تقييم شنومك من شنومكس
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL