6 načinov za pretvorbo vseh opomb v končne opombe in obratno v dokumentu Word

V tem članku vam bomo predstavili 6 načinov pretvorbe vseh opomb v končne opombe in obratno v dokumentu Word.

Vsem je znano, da so besedila opomb privzeto razporejena na dnu posameznih strani, medtem ko so končne opombe na koncu dokumenta. Vendar takšne privzete nastavitve ne morejo ves čas zadovoljiti ljudi. Tudi Word ima vgrajen ukaz za pretvorbo opomb v končne opombe in obratno. Zato ustvarimo 6 metod, ki jih lahko prevzamete.

1. način: ročno pretvorite vse opombe v končne opombe v enem dokumentu

Tu so običajno opombe in opombe:

1. Za začetek kliknite zavihek »Reference« in nato puščico v skupini »Opombe«, da se odpre pogovorno okno »Opomba pod črto in končna opomba«.
2. Nato kliknite gumb »Pretvori«.
3. Nato izberite možnost »Pretvori vse opombe v končne opombe«.
4. In kliknite »V redu«.
5. Na koncu zaprite polje »Opomba in končna opomba«.

Tu je učinek:

2. način: ročno pretvorite vse končne opombe v opombe v enem dokumentu

Pretvorba končnih opomb v opombe je zelo enaka.

1. Ponovite 1. in 2. korak v 1. metodi.
2. Tokrat izberite možnost »Pretvori vse končne opombe v opombe«.
3. Kljub temu ponovite 4. in 5. korak v 1. metodi.

Preverite naslednji rezultat:

3. način: Pretvorite vse opombe v končne opombe v enem dokumentu prek VBA

1. Najprej pritisnite “Alt + F11”, da odprete urejevalnik VBA v Wordu.
2. Nato kliknite »Normal«.
3. Kliknite zavihek "Vstavi".
4. V spustnem meniju izberite »Modul«.
5. Nato dvakrat kliknite modul, da ga odprete.
6. Tam prilepite naslednje kode:

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 koncu kliknite »Zaženi«.

4. način: Pretvorite vse končne opombe v opombe v enem dokumentu prek VBA

Podobno sledite istim korakom v metodi 3 za namestitev in zagon makra. Vendar zamenjajte makro z spodnjim:

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

5. način: paketno pretvorbo vseh opomb v opombe v več dokumentih prek VBA

Če je veliko datotek, s katerimi morate opraviti, jih najprej razporedite v eno mapo. Nato namestite in zaženite ta 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

Če zaženete ta makro, se prikaže polje za vnos, kjer morate vnesti pot do mape. In ne pozabite, da mora biti na koncu naslova mape znak \.

6. način: paketno pretvorbo vseh končnih opomb v opombe v več dokumentih prek VBA

Tu je še makro za samodejno paketno pretvorbo opomb v več dokumentih v opombe:

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 odpraviti težave z besedami

Beseda lahko propade brez znaka. Čeprav se vam zdi neverjetno, da vas najde takšna smola, vam ne preostane drugega, kot da se za popravilo obrnete na kvalificirano orodje za popravilo pokvarjen dok.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan Excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com