Hoe verwijdert u de scheidingslijn van voetnoten of eindnoten in een Word-document?

Wanneer u voetnoten of eindnoten in een Word-document invoegt, verschijnt er automatisch een horizontale scheidingslijn boven de bijbehorende tekst. Wilt u die lijn verwijderen? Volg dan de methoden in dit artikel.

Scheidingslijn van voetnoten/eindnoten verwijderen in Word

Scheidingslijn van voetnoten/eindnoten verwijderen met VBA-code

Scheidingslijn van voetnoten/eindnoten verwijderen in Word

U kunt de scheidingslijn van voetnoten of eindnoten in Word verwijderen door de volgende stappen te volgen:

1. Klik in het document waarin u de scheidingslijn van voetnoten of eindnoten wilt verwijderen op 'Weergave' > 'Concept'.

   

2. Klik op 'Verwijzingen' > 'Notities weergeven'.

   

3. Als het document zowel voetnoten als eindnoten bevat, verschijnt het dialoogvenster „Notities weergeven”. Selecteer de gewenste weergaveoptie en klik op „OK” – kies bijvoorbeeld „Gebied voor voetnoten weergeven”.

   

   Opmerking: Als uw document alleen voetnoten of eindnoten bevat, sla deze stap over en ga naar de volgende record.

4. Nu verschijnt het gedeelte „Notities” aan het einde van het document. Kies „Scheidingsteken voor voetnoten” in de keuzelijst „Voetnoten”, selecteer de scheidingslijn en druk op de Delete-toets.

   

5. Schakel het document terug naar de weergave „Afdruklay-out”.

   

De scheidingslijn is nu uit het document verwijderd.

Scheidingslijnen van voetnoten/eindnoten verwijderen met VBA-code

Als de handmatige methode onhandig is, kunt u de volgende VBA-code gebruiken om snel de scheidingslijnen van voetnoten of zowel van voetnoten als eindnoten te verwijderen:

1. Druk in het Word-document op Alt + F11 om het venster ‘Microsoft Visual Basic for Applications’ te openen.
2. Klik in het VBA-venster op 'Invoegen' > 'Module' en plak daarna de volgende code in de module.

   

   VBA-code: Verwijder de scheidingslijn van voetnoten uit een Word-document

   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. Druk op F5 om de code uit te voeren — alle scheidingslijnen van voetnoten worden dan direct verwijderd.

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

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

 

Gratis downloaden     Nu kopen     Meer informatie

 

---

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

• Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
• Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

Gratis downloaden     Nu kopen     Meer informatie

 

---

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

⬇️ Nu downloaden🎁 Het volledige pakket kopen📖 Meer informatie

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

• 🤖KUTOOLS AI-functies:AI Assistent/Realtime Assistent/Super Polish/Super Vertalen/AI Redactie/AI Proeflezen
• 📘Documentbeheersing:Pagina's splitsen/Documenten samenvoegen/Batchconversie naar PDF
• ✏Inhoudsbewerking:Batch Zoeken en Vervangen/Alle afbeeldingen herschalen
• 🧹Moeiteloos opschonen:Overbodige spaties verwijderen/Sectie-einde verwijderen
• ➕Creatieve invoegingen:Duizendtalscheidingstekens invoegen/Selectievakje invoegen/QR-code maken
• 🌍Ondersteunt 40+ talen: Kutools spreekt uw taal – met ondersteuning voor meer dan 40 talen!

Gratis downloadenNu kopenMeer informatie over Kutools