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...