6 spôsobov, ako previesť všetky poznámky pod čiarou na poznámky pod čiarou a naopak vo vašom dokumente Word

V tomto článku vám ponúkneme 6 spôsobov, ako previesť všetky poznámky pod čiarou k poznámkam pod čiarou a naopak vo vašom dokumente Word.

Všetci vedia, že štandardne sú texty poznámok pod čiarou usporiadané v spodnej časti jednotlivých stránok, zatiaľ čo poznámky pod čiarou sa nachádzajú na konci dokumentu. Takéto predvolené nastavenia však nemôžu ľudí uspokojiť stále. Dokonca aj Word má zabudovaný príkaz, pomocou ktorého môžu používatelia prevádzať poznámky pod čiarou do poznámok pod čiarou a naopak. Preto generujeme 6 metód, ktoré si môžete vyzdvihnúť.

Metóda 1: Ručná konverzia všetkých poznámok pod čiarou do poznámok v jednom dokumente

Tu zvyčajne zostávajú poznámky pod čiarou a poznámky pod čiarou:

1. Na začiatok kliknite na kartu „Odkazy“ a potom kliknutím na tlačidlo so šípkou v skupine „Poznámky pod čiarou“ otvorte dialógové okno „Poznámka pod čiarou a koncová poznámka“.
2. Ďalej kliknite na tlačidlo „Previesť“.
3. Potom vyberte možnosť „Premeniť všetky poznámky pod čiarou na poznámky pod čiarou“.
4. A kliknite na „OK“.
5. Nakoniec zavrite políčko „Poznámka pod čiarou a poznámka pod čiarou“.

Tu je efekt:

Metóda 2: Ručná konverzia všetkých poznámok pod čiarou v jednom dokumente

Prevod poznámok pod čiarou je úplne rovnaký.

1. Opakujte kroky 1 a 2 v metóde 1.
2. Tentokrát namiesto toho vyberte možnosť „Konvertovať všetky poznámky pod čiarou“.
3. Stále opakujte kroky 4 a 5 v metóde 1.

Skontrolujte nasledujúci výsledok:

Metóda 3: Prevod všetkých poznámok pod čiarou na poznámky pod čiarou v jednom dokumente pomocou VBA

1. Najskôr stlačte kombináciu klávesov „Alt + F11“ a otvorte editor VBA v programe Word.
2. Ďalej kliknite na „Normálny“.
3. Kliknite na kartu „Vložiť“.
4. V rozbaľovacej ponuke zvoľte možnosť „Modul“.
5. Potom dvojitým kliknutím otvorte modul.
6. Vložte tam nasledujúce kódy:

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. Nakoniec kliknite na tlačidlo „Spustiť“.

Metóda 4: Preveďte všetky poznámky pod čiarou v jednom dokumente pomocou VBA

Podobne postupujte podľa rovnakých krokov v metóde 3 na inštaláciu a spustenie makra. Nahraďte však makro nasledujúcim:

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

Metóda 5: Dávkový prevod všetkých poznámok pod čiarou do poznámok vo viacerých dokumentoch pomocou VBA

V prípade, že musíte pracovať s veľkým počtom súborov, najskôr ich usporiadajte do jedného priečinka. Potom nainštalujte a spustite toto 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

Spustením tohto makra sa otvorí vstupné pole, kde by ste mali zadať cestu k priečinku. Nezabudnite, že na konci adresy priečinka by malo byť „\“.

Metóda 6: Dávkový prevod všetkých poznámok pod čiarou do poznámok pod čiarou vo viacerých dokumentoch pomocou VBA

Nakoniec je tu makro na automatický dávkový prevod poznámok vo viacerých dokumentoch na poznámky pod čiarou:

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

Ako opraviť problémy so slovom

Slovo môže zlyhať aj bez znamenia. Aj keď môžete mať pocit, že je neuveriteľné, že si vás takáto smola nájde, nezostáva vám nič iné, ako sa obrátiť na kvalifikovaný opravárenský nástroj na opravu. skorumpovaný doc.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S