6 způsobů, jak převést všechny poznámky pod čarou na vysvětlivky a naopak v dokumentu aplikace Word

V tomto článku vám poskytneme 6 způsobů, jak převést všechny poznámky pod čarou na vysvětlivky a naopak v dokumentu aplikace Word.

Všem je známo, že ve výchozím nastavení jsou texty poznámek pod čarou uspořádány na spodní části jednotlivých stránek, zatímco vysvětlivky se nacházejí na konci dokumentu. Takové výchozí nastavení však nemůže uspokojit lidi neustále. Dokonce i Word má vestavěný příkaz pro uživatele k převodu poznámek pod čarou na vysvětlivky a naopak. Proto pro vás vygenerujeme 6 metod k vyzvednutí.

Metoda 1: Převést všechny poznámky pod čarou na vysvětlivky v jednom dokumentu ručně

Poznámky pod čarou a vysvětlivky obvykle zůstávají zde:

1. Začněte kliknutím na kartu „Odkazy“ a poté kliknutím na tlačítko se šipkou ve skupině „Poznámky pod čarou“ a otevřete dialogové okno „Poznámky pod čarou a vysvětlivky“.
2. Dále klikněte na tlačítko „Převést“.
3. Poté vyberte možnost „Převést všechny poznámky pod čarou na vysvětlivky“.
4. A klikněte na „OK“.
5. Nakonec zavřete pole „Poznámka pod čarou a vysvětlivka“.

Zde je účinek:

Metoda 2: Převést všechny vysvětlivky na poznámky pod čarou v jednom dokumentu ručně

Převést vysvětlivky na poznámky pod čarou je velmi podobné.

1. Opakujte kroky 1 a 2 v metodě 1.
2. Tentokrát místo toho vyberte možnost „Převést všechny vysvětlivky na poznámky pod čarou“.
3. Přesto opakujte kroky 4 a 5 v metodě 1.

Zkontrolujte následující výsledek:

Metoda 3: Převeďte všechny poznámky pod čarou na vysvětlivky v jednom dokumentu prostřednictvím jazyka VBA

1. Nejprve stiskněte „Alt + F11“ a otevřete editor VBA ve Wordu.
2. Dále klikněte na „Normální“.
3. Klikněte na kartu „Vložit“.
4. V rozevírací nabídce vyberte možnost „Modul“.
5. Poté dvojitým kliknutím na modul otevřete.
6. Vložte následující 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. Nakonec klikněte na „Spustit“.

Metoda 4: Převeďte všechny vysvětlivky na poznámky pod čarou v jednom dokumentu prostřednictvím jazyka VBA

Podobně postupujte podle stejných kroků v metodě 3 pro instalaci a spuštění makra. Ale nahraďte makro následujícím:

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: Dávkový převod všech poznámek pod čarou na vysvětlivky ve více dokumentech prostřednictvím jazyka VBA

V případě velkého počtu souborů, se kterými se musíte vypořádat, je nejprve všechny uspořádejte do jedné složky. Poté nainstalujte a spusťte 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

Spuštěním tohoto makra se zobrazí vstupní pole, do kterého byste měli zadat cestu ke složce. A nezapomeňte, že na konci adresy složky by mělo být „\“.

Metoda 6: Dávkový převod všech vysvětlivek na poznámky pod čarou ve více dokumentech prostřednictvím jazyka VBA

Nakonec je zde makro pro automatický dávkový převod vysvětlivek ve více dokumentech na poznámky pod čarou:

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

Jak opravit problémy se slovem

Word může selhat bez znaménka. I když se vám může zdát neuvěřitelné, že si vás taková smůla najde, nezbývá vám nic jiného, ​​než se obrátit na kvalifikovaného opraváře a opravit zkorumpovaný dokument.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com