Wie entferne ich die Trennlinie zwischen Fußnote und Endnote im Word-Dokument?
Wenn Sie Fußnoten oder Endnoten in ein Word-Dokument einfügen, finden Sie immer eine horizontale Trennlinie über den Texten zu Fußnoten oder Endnoten. Wenn Sie diese Trennlinien entfernen möchten, versuchen Sie es mit den Methoden in diesem Artikel.
Entfernen Sie die Trennlinie zwischen Fußnote und Endnote in Word
Entfernen Sie die Trennlinie zwischen Fußnote und Endnote mit VBA-Code
Entfernen Sie die Trennlinie zwischen Fußnote und Endnote in Word
Sie können die Fußnoten- oder Endnoten-Trennlinie in Word wie folgt entfernen.
1. Klicken Sie im Dokument, um die Trennlinie für Fußnoten oder Endnoten zu entfernen, auf Anzeigen > Entwurf.
2. Dann klick Bibliographie > Notizen anzeigen wie unten Screenshot gezeigt.
3. Wenn Ihr Dokument sowohl Fußnoten als auch Endnoten enthält, a Notizen anzeigen Das Dialogfeld wird angezeigt. Wählen Sie eine gewünschte Option aus und klicken Sie auf OK Taste. Hier wähle ich Fußnote anzeigen Bereich.
Note: Wenn in Ihrem Dokument nur Fuß- oder Endnote vorhanden ist, ignorieren Sie diesen Schritt und fahren Sie mit Schritt 4 fort.
4. Nun die Notizen Abschnitt wird am Ende des Dokuments angezeigt, bitte auswählen Fußnoten-Trennzeichen der Fußnoten Wählen Sie in der Dropdown-Liste die Trennlinie aus und drücken Sie die Taste Löschen Schlüssel zum Löschen. Siehe Screenshot:
5. Wechseln Sie zu Drucklayout Ansicht des Dokuments.
Dann können Sie sehen, dass die Trennlinie der Fußnote sofort aus dem Dokument entfernt wird.
Note: Um die Endnoten-Trennlinie zu entfernen, müssen Sie nur überprüfen Endnote anzeigen Bereich oben Notizen anzeigen Dialog, und wählen Sie dann Endnoten-Trennzeichen der Endnoten Dropdown-Liste.
Entfernen Sie Fußnoten- / Endnoten-Trennlinien mit VBA-Code
Wenn die oben beschriebene Methode für Sie unpraktisch ist, können Sie die folgenden VBA-Codes verwenden, um schnell alle Trennlinien der Fußnote oder sowohl der Fußnote als auch der Endnote aus dem Dokument zu entfernen.
1. Drücken Sie in dem Dokument, in dem Sie die Trennlinie der Fußnote entfernen, die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
VBA-Code: Fußnoten-Trennlinie im Dokument entfernen
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann werden alle Trennlinien aller Fußnoten sofort aus dem Dokument entfernt.
Note: Wenn Sie alle Trennlinien von Fußnote und Endnote entfernen möchten, kann der folgende VBA-Code hilfreich sein.
VBA-Code: Entfernen Sie die Trennlinien für Fußnoten und Endnoten im Dokument
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-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...