6 načina za pretvaranje svih fusnota u bilješke i obrnuto u vašem Word dokumentu

U ovom članku pružit ćemo vam 6 načina za pretvaranje svih fusnota u bilješke i obrnuto u vašem Word dokumentu.

Svima je poznato da su prema zadanim postavkama tekstovi fusnota raspoređeni na dnu pojedinačnih stranica, dok se endnote nalaze na kraju dokumenta. Međutim, takve zadane postavke ne mogu uvijek zadovoljiti ljude. Čak i Word ima ugrađenu naredbu za korisnike da konvertiraju fusnote u bilješke i obrnuto. Stoga stvaramo 6 metoda koje možete preuzeti.

Metoda 1: Ručno pretvorite sve fusnote u end bilješke u jednom dokumentu

Ovdje fusnote i bilješke obično ostaju:

1. Za početak kliknite karticu "Reference", a zatim kliknite gumb sa strelicom u grupi "Fusnote" da biste otvorili dijaloški okvir "Fusnota i bilješka".
2. Zatim kliknite gumb "Pretvori".
3. Zatim odaberite opciju "Pretvori sve fusnote u endnote".
4. I kliknite "OK".
5. Na kraju zatvorite okvir "Fusnota i bilješka".

Evo učinka:

Metoda 2: Ručno pretvorite sve bilješke u fusnote u jednom dokumentu

Pretvoriti endnote u fusnote je uvelike isto.

1. Ponovite korake 1 i 2 u metodi 1.
2. Ovaj put umjesto toga odaberite opciju "Pretvori sve krajnje bilješke u fusnote".
3. Ipak, ponovite korake 4 i 5 u metodi 1.

Provjerite sljedeći rezultat:

Metoda 3: Pretvorite sve fusnote u bilješke u jednom dokumentu putem VBA

1. Prvo pritisnite “Alt+ F11” da biste otvorili VBA editor u Wordu.
2. Zatim kliknite "Normalno".
3. Pritisnite karticu "Umetni".
4. I odaberite "Modul" na padajućem izborniku.
5. Zatim dvaput kliknite na modul da biste ga otvorili.
6. Tamo zalijepite sljedeće kodove:

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. Na kraju kliknite "Pokreni".

Metoda 4: Pretvorite sve bilješke u fusnote u jednom dokumentu putem VBA

Slično, slijedite iste korake u metodi 3 za instaliranje i pokretanje makronaredbe. Ali, zamijenite makronaredbu sljedećom:

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

Metoda 5: Skupno pretvaranje svih fusnota u bilješke u više dokumenata putem VBA

U slučaju da imate veliki broj datoteka s kojima morate raditi, prvo ih sve posložite u jednu mapu. Zatim instalirajte i pokrenite ovaj 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

Pokretanje ove makronaredbe iskočit će okvir za unos u koji trebate unijeti putanju mape. I ne zaboravite da na kraju adrese mape treba stajati “\”.

Metoda 6: Skupno pretvaranje svih bilješki u fusnote u više dokumenata putem VBA

Konačno, evo makronaredbe za automatsku grupnu pretvorbu krajnjih bilješki u više dokumenata u fusnote:

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

Kako riješiti probleme s riječima

Riječ može propasti bez znaka. Iako možda mislite da je nevjerojatno da će vas takva loša sreća pronaći, nemate drugog izbora nego se obratiti kvalificiranom alatu za popravak korumpirani dok.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen Excel i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com