Hoe de voetnoot / eindnootscheidingsteken in Word-document verwijderen?

Bij het invoegen van voetnoten of eindnoten in Word-documenten, zult u merken dat er altijd een horizontale scheidingslijn boven de voetnoot- of eindnoten-teksten staat. Als je deze scheidingslijnen wilt verwijderen, probeer dan de methoden in dit artikel.

Verwijder voetnoot / eindnootscheidingsteken in Word

Verwijder voetnoot / eindnootscheidingsteken met VBA-code

Verwijder voetnoot / eindnootscheidingsteken in Word

U kunt als volgt een voetnoot- of eindnootscheidingsteken in Word verwijderen.

1. In het document verwijdert u de scheidingslijn voor voetnoten of eindnoten, klik op Bekijk > Ontwerp.

2. Dan klikken Referenties > Laat notities zien zoals hieronder getoond screenshot.

3. Als uw document zowel voetnoten als eindnoten bevat, wordt een Laat notities zien dialoogvenster verschijnt, selecteer een optie die u nodig heeft en klik vervolgens op de OK knop. Hier selecteer ik Zie voetnoot gebied.

Note: Als er alleen een voetnoot of eindnoot in uw document bestaat, negeert u deze stap en gaat u verder met stap 4.

4. Nu het Opmerkingen sectie wordt weergegeven aan het einde van het document, selecteer alstublieft Voetnootscheidingsteken in de voetnoten vervolgkeuzelijst, selecteer de scheidingslijn en druk vervolgens op Verwijder toets om het te verwijderen. Zie screenshot:

5. Schakel over naar Afdrukopmaak weergave van het document.

Vervolgens kunt u zien dat de scheidingslijn van de voetnoot onmiddellijk uit het document wordt verwijderd.

Note: Om de eindnootscheidingslijn te verwijderen, hoeft u alleen maar te controleren Bekijk eindnoot gebied in het bovenstaande Laat notities zien dialoogvenster en selecteer vervolgens Eindnootscheidingsteken in de eindnoten keuzelijst.

Verwijder voetnoot / eindnootscheidingslijnen met VBA-code

Als de bovenstaande methode onhandig voor u is, kunt u de volgende VBA-codes proberen om snel alle scheidingsregels van voetnoten of zowel voetnoten als eindnoten uit het document te verwijderen.

1. In het document dat u de scheidingslijn van de voetnoot wilt verwijderen, drukt u op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.

VBA-code: verwijder de voetnootscheidingslijn in het 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 de F5 sleutel om de code uit te voeren. Vervolgens worden alle scheidingslijnen van de voetnoten onmiddellijk uit het document verwijderd.

Note: Als u alle scheidingslijnen van voetnoten en eindnoten wilt verwijderen, kan de onderstaande VBA-code helpen.

VBA-code: verwijder voetnoot- en eindnootscheidingslijnen in het 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.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 Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren  /  Herschrijf tekst  /  Documenten samenvatten  /  Informeer voor informatie gebaseerd op document, allemaal binnen Word

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken...

✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden  /  Formaat van alle afbeeldingen wijzigen  /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes  /  Sectie-onderbrekingen  /  Alle koppen  /  Tekstvakken  /  hyperlinks  / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...

➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  / Ontdek meer in de Groep invoegen...

???? Precisieselecties: Vaststellen specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  / Verbeter de navigatie met meer Selecteer functies...

⭐ Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen...

👉 Wil je deze functies proberen? Kutools voor Word biedt een Gratis proefperiode van 60-dag, zonder beperkingen! 🚀

Gratis download     Lees meer     KOOP NU