6 Möglichkeiten, alle Fußnoten in Endnoten umzuwandeln und umgekehrt in Ihrem Word-Dokument

In diesem Artikel bieten wir Ihnen 6 Möglichkeiten, alle Fußnoten in Endnoten umzuwandeln und umgekehrt in Ihrem Word-Dokument.

Allen ist bekannt, dass Fußnotentexte standardmäßig am unteren Rand einzelner Seiten angeordnet sind, während sich Endnoten am Ende eines Dokuments befinden. Solche Standardeinstellungen können jedoch nicht immer zufriedenstellen. Sogar in Word ist ein Befehl integriert, mit dem Benutzer Fußnoten in Endnoten konvertieren können und umgekehrt. Aus diesem Grund generieren wir 6 Methoden, die Sie abholen können.

Methode 1: Konvertieren Sie alle Fußnoten manuell in Endnoten in einem Dokument

Hier bleiben normalerweise Fußnoten und Endnoten:

1. Klicken Sie zunächst auf die Registerkarte "Referenzen" und dann auf die Pfeilschaltfläche in der Gruppe "Fußnoten", um das Dialogfeld "Fußnote und Endnote" zu öffnen.
2. Klicken Sie anschließend auf die Schaltfläche "Konvertieren".
3. Wählen Sie dann die Option „Alle Fußnoten in Endnoten konvertieren“.
4. Und klicken Sie auf "OK".
5. Schließen Sie zum Schluss das Feld „Fußnote und Endnote“.

Hier ist der Effekt:

Methode 2: Konvertieren Sie alle Endnoten manuell in Fußnoten in einem Dokument

Endnoten in Fußnoten umzuwandeln ist sehr ähnlich.

1. Wiederholen Sie die Schritte 1 und 2 in Methode 1.
2. Wählen Sie diesmal stattdessen die Option "Alle Endnoten in Fußnoten konvertieren".
3. Wiederholen Sie dennoch die Schritte 4 und 5 in Methode 1.

Überprüfen Sie das folgende Ergebnis:

Methode 3: Konvertieren Sie alle Fußnoten in Endnoten in einem Dokument über VBA

1. Drücken Sie zunächst „Alt + F11“, um den VBA-Editor in Word zu öffnen.
2. Klicken Sie anschließend auf "Normal".
3. Klicken Sie auf die Registerkarte "Einfügen".
4. Und wählen Sie "Modul" im Dropdown-Menü.
5. Doppelklicken Sie dann auf das Modul, um es zu öffnen.
6. Fügen Sie dort die folgenden Codes ein:

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Klicken Sie abschließend auf "Ausführen".

Methode 4: Konvertieren Sie alle Endnoten in Fußnoten in einem Dokument über VBA

Befolgen Sie in ähnlicher Weise die gleichen Schritte in Methode 3, um das Makro zu installieren und auszuführen. Ersetzen Sie das Makro jedoch durch das folgende:

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Methode 5: Stapelkonvertierung aller Fußnoten in Endnoten in mehreren Dokumenten über VBA

Wenn Sie eine große Anzahl von Dateien bearbeiten müssen, ordnen Sie diese zuerst in einem Ordner an. Installieren Sie dann dieses Makro und führen Sie es aus:

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Wenn Sie dieses Makro ausführen, wird ein Eingabefeld angezeigt, in das Sie den Ordnerpfad eingeben sollten. Und vergessen Sie nicht, dass am Ende der Ordneradresse ein "\" stehen sollte.

Methode 6: Stapelkonvertierung aller Endnoten in Fußnoten in mehreren Dokumenten über VBA

Schließlich ist hier das Makro zum Stapelkonvertieren von Endnoten in mehreren Dokumenten in Fußnoten automatisch:

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

So beheben Sie Word-Probleme

Word kann ohne Vorzeichen fehlschlagen. Obwohl Sie vielleicht das Gefühl haben, dass es unglaublich ist, dass ein solches Pech Sie findet, haben Sie keine andere Wahl, als sich an ein qualifiziertes Reparaturwerkzeug zu wenden, um das Problem zu beheben korruptes Dokument.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes Excel und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX