In diesem Artikel bieten wir Ihnen 5 Möglichkeiten, um die Fußnoten- oder Endnotenreferenznummern auf die normale Textformatierung im Notizbereich zurückzusetzen.
Wann immer wir Fußnoten oder Endnoten einfügen, werden die Referenznummern in den Haupttexten und im Notizbereich angezeigt. Standardmäßig sind diese Zahlen an beiden Stellen hochgestellt. Was ist, wenn wir die hochgestellten Zahlen im Notizbereich in normalen Text ändern möchten, aber die Referenznummern in den Haupttexten intakt lassen möchten? Entspannen! Hier sind unsere Wege.
Methode 1: Verwenden Sie im Notenbereich „Strg + A“
- Setzen Sie zunächst den Cursor auf den Notenbereich, sei es im Fußnoten- oder Endnotenbereich.
- Drücken Sie dann „Strg + A“, um alle Texte und Referenznummern auszuwählen.
- Klicken Sie auf die Registerkarte "Startseite" und dann auf den Befehl "Hochgestellt".
Das nächste, was Sie sehen, ist, dass die hochgestellte Formatierung weg ist.
Methode 2: Verwenden Sie Verknüpfungen
- Wählen Sie zunächst eine der Notizen aus, einschließlich der Referenznummer. Hier nehmen wir das Beispiel der Änderung der Formatierung der Fußnotenreferenznummer.
- Zweitens klicken Sie auf der Registerkarte "Home" auf den Befehl "Auswählen".
- Wählen Sie dann im Dropdown-Menü "Text mit ähnlicher Formatierung auswählen".
- Jetzt sind alle Referenznummern in Auswahl. Drücken Sie "Strg + Umschalt + =", um die hochgestellte Formatierung zu entfernen.
Methode 3: Ändern Sie die Formatierung in der Entwurfsansicht
- Klicken Sie zunächst auf "Anzeigen".
- Klicken Sie dann auf "Entwurf", um zur Ansicht zu wechseln.
- Klicken Sie anschließend auf "Referenzen" und "Notizen anzeigen".
- Aktivieren Sie im Kontrollkästchen "Notizen anzeigen" entweder das Kontrollkästchen "Fußnotenbereich anzeigen" oder "Endnotenbereich anzeigen".
- Klicken Sie auf "OK", um den Notizbereich am unteren Bildschirmrand zu öffnen.
- In unserem Fall wählen Sie im Dropdown-Feld "Alle Fußnoten".
- Wählen Sie alle Texte und Zahlen im Notizbereich aus.
- Drücken Sie "Strg + Umschalt + =", um die hochgestellte Formatierung zu entfernen.
Methode 4: Führen Sie das Word-Makro aus
- Drücken Sie zunächst „Alt + F11“, um den VBA-Editor in Word auszulösen.
- Klicken Sie anschließend auf "Normal".
- Klicken Sie dann auf die Registerkarte "Einfügen" und dann auf "Modul", um ein neues zu erstellen.
- Und doppelklicken Sie auf das Modul, um es zu öffnen.
- Fügen Sie dort die folgenden Codes ein:
Sub ChangeFootnoteAndEndnoteSuperscripNumberToNormal()
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
Selection.Find.ClearFormatting
With Selection.Find.Font
.Superscript = True
.Subscript = False
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekEndnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneEndnotes
End If
Selection.Find.ClearFormatting
With Selection.Find.Font
.Superscript = True
.Subscript = False
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub
- Klicken Sie abschließend auf "Ausführen".
Dieses Makro funktioniert sowohl für Fußnoten als auch für Endnoten, sodass Sie die Formatierung in Sekunden ändern können.
Methode 5: Verwenden Sie die Funktion „Suchen und Ersetzen“
- Wiederholen Sie zunächst die ersten drei Schritte in Methode 3.
- Drücken Sie dann "Strg + H", um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
- Denken Sie daran, die Formatierung in den Textfeldern "Suchen nach" und "Ersetzen durch" zu löschen.
- Setzen Sie als nächstes den Cursor auf den Text „Find what“ und klicken Sie auf die Schaltfläche „More“.
- Klicken Sie auf die Registerkarte "Format" und wählen Sie die Option "Schriftart".
- Aktivieren Sie nun im Dialogfeld "Schriftart suchen" das Kontrollkästchen "Hochgestellt" und klicken Sie auf "OK".
- Positionieren Sie dann den Cursor auf das Textfeld „Ersetzen durch“.
- Wiederholen Sie Schritt 5.
- Deaktivieren Sie dieses Mal im Dialogfeld "Schriftart suchen" die Häkchen in den Feldern "Hochgestellt" und "Tiefgestellt" und klicken Sie auf "OK".
- Zuletzt kehren Sie zum Feld „Suchen und Ersetzen“ zurück. Klicken Sie auf "Alle ersetzen".
Beheben Sie Dokumentprobleme
Word kann so viele Features und Funktionen ausführen. Da Word nicht narrensicher ist, können Sie nie sagen, wann es fehlschlagen wird. Wenn Sie alle testen möchten, gehen Sie auf Nummer sicher und sichern Sie Ihre Dokumente. Immerhin a beschädigte docx ist das Mindeste, was wir sehen wollen.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls Wiederherstellung und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX