6 sätt att konvertera alla fotnoter till slutnoter och vice versa i ditt Word-dokument

I den här artikeln ger vi dig 6 sätt att konvertera alla fotnoter till slutnoter och vice versa i ditt Word-dokument.

Det är känt för alla att som standard är fotnotstexter ordnade längst ner på enskilda sidor medan slutnoter finns i slutet av ett dokument. Sådana standardinställningar kan dock inte tillfredsställa människor hela tiden. Även Word har ett inbyggt kommando för användare att konvertera fotnoter till slutnoter och vice versa. Därför genererar vi 6 metoder som du kan hämta.

Metod 1: Konvertera alla fotnoter till slutnoter i ett dokument manuellt

Här är fotnoter och slutnoter vanligtvis:

1. Till att börja med klickar du på fliken "Referenser" och sedan på pilknappen i gruppen "Fotnoter" för att öppna dialogrutan "Fotnot och slutnot".
2. Klicka sedan på knappen "Konvertera".
3. Välj sedan alternativet "Konvertera alla fotnoter till slutnoter".
4. Och klicka på “OK”.
5. Stäng slutligen rutan ”Fotnot och slutnot”.

Här är effekten:

Metod 2: Konvertera alla slutnoter till fotnoter i ett dokument manuellt

Att konvertera slutnoter till fotnoter är mycket detsamma.

1. Upprepa steg 1 och 2 i metod 1.
2. Välj den här gången alternativet "Konvertera alla slutnoter till fotnoter".
3. Upprepa ändå steg 4 och 5 i metod 1.

Kontrollera följande resultat:

Metod 3: Konvertera alla fotnoter till slutnoter i ett dokument via VBA

1. Tryck först på “Alt + F11” för att öppna VBA-redigeraren i Word.
2. Klicka sedan på “Normal”.
3. Klicka på fliken "Infoga".
4. Och välj ”Modul” på rullgardinsmenyn.
5. Dubbelklicka sedan på modulen för att öppna den.
6. Klistra in följande koder där:

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. Klicka slutligen på "Kör".

Metod 4: Konvertera alla slutnoter till fotnoter i ett dokument via VBA

Följ samma steg i metod 3 för att installera och köra makro. Men ersätt makrot med det böljande:

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

Metod 5: Konvertera alla fotnoter till slutnoter i flera dokument via VBA

Om det finns ett stort antal filer du måste hantera, ordnar du dem alla i en mapp först. Installera och kör sedan detta 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

Att köra detta makro kommer att dyka upp en inmatningsruta där du ska gå in i mappvägen. Och glöm inte att det ska finnas ett "\" i slutet av mappadressen.

Metod 6: Konvertera alla slutnoter till fotnoter i flera dokument via VBA

Slutligen är här makrot för att batchkonvertera slutnoter i flera dokument till fotnoter automatiskt:

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

Hur man fixar ordproblem

Ordet kan misslyckas utan tecken. Även om du kanske känner att det är otroligt att en sådan otur kommer att hitta dig, har du inget annat val än att vända dig till ett kvalificerat reparationsverktyg för att fixa korrupt doc.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadad Excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com