6 måder at konvertere alle fodnoter til slutnoter og omvendt i dit Word-dokument

I denne artikel vil vi give dig 6 måder at konvertere alle fodnoter til slutnoter og omvendt i dit Word-dokument.

Det er kendt for alle, at fodnotetekster som standard er arrangeret i bunden af ​​individuelle sider, mens slutnoter findes i slutningen af ​​et dokument. Sådanne standardindstillinger kan dog ikke tilfredsstille folk hele tiden. Selv Word har indbygget kommando til brugere til at konvertere fodnoter til slutnoter og omvendt. Derfor genererer vi 6 metoder, som du kan hente.

Metode 1: Konverter alle fodnoter til slutnoter i ét dokument manuelt

Her er hvor fodnoter og slutnoter normalt bliver:

1. Til at begynde med skal du klikke på fanen "Referencer" og derefter klikke på pileknappen i "Fodnoter"-gruppen for at åbne dialogboksen "Fodnote og slutnote".
2. Klik derefter på knappen "Konverter".
3. Vælg derefter "Konverter alle fodnoter til slutnoter".
4. Og klik på “OK”.
5. Til sidst skal du lukke feltet "Fodnote og slutnote".

Her er effekten:

Metode 2: Konverter alle slutnoter til fodnoter i ét dokument manuelt

At konvertere slutnoter til fodnoter er meget det samme.

1. Gentag trin 1 og 2 i metode 1.
2. Denne gang skal du vælge "Konverter alle slutnoter til fodnoter" i stedet.
3. Gentag stadig trin 4 og 5 i metode 1.

Tjek følgende resultat:

Metode 3: Konverter alle fodnoter til slutnoter i ét dokument via VBA

1. Først skal du trykke på "Alt + F11" for at åbne VBA-editor i Word.
2. Klik derefter på “Normal”.
3. Klik på fanen "Indsæt".
4. Og vælg "Modul" i rullemenuen.
5. Dobbeltklik derefter på modulet for at åbne det.
6. Indsæt følgende koder der:

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. Klik til sidst på "Kør".

Metode 4: Konverter alle slutnoter til fodnoter i ét dokument via VBA

På samme måde skal du følge de samme trin i metode 3 for at installere og køre makro. Men udskift makroen med den nedenstående:

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

Metode 5: Batchkonverter alle fodnoter til slutnoter i flere dokumenter via VBA

Hvis der er et stort antal filer, du skal håndtere, arrangerer du dem alle i én mappe først. Installer og kør derefter denne makro:

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

Når du kører denne makro, vises der et inputfelt, hvor du skal indtaste mappestien. Og glem ikke, at der skal være et "\" i slutningen af ​​mappeadressen.

Metode 6: Batchkonverter alle slutnoter til fodnoter i flere dokumenter via VBA

Endelig er her makroen til batchkonvertering af slutnoter i flere dokumenter til fodnoter automatisk:

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

Sådan løses Word-problemer

Ord kan fejle uden tegn. Selvom du måske føler, at det er utroligt, at sådan et uheld skal finde dig, har du intet andet valg end at henvende dig til et kvalificeret reparationsværktøj for at reparere korrupt dok.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget Excel og pdf produkter til reparation af software. For mere information besøg www.datanumen.com