6 viisi, kuidas teisendada kõik joonealused märkused oma Wordi dokumendis lõpumärkusteks ja vastupidi

Selles artiklis pakume teile 6 võimalust, kuidas teisendada Wordi dokumendis kõik joonealused märkused lõpumärkusteks ja vastupidi.

Kõik teavad, et vaikimisi paigutatakse joonealuste märkuste tekstid üksikute lehtede allserva, samas kui lõpumärkused leitakse dokumendi lõpus. Sellised vaikesätted ei suuda aga inimesi kogu aeg rahuldada. Isegi Wordis on sisseehitatud käsk, mis võimaldab kasutajatel teisendada joonealuseid märkusi lõpumärkusteks ja vastupidi. Seetõttu loome teile kasutamiseks 6 meetodit.

1. meetod: teisendage kõik joonealused märkused ühes dokumendis käsitsi lõpumärkusteks

All- ja lõpumärkused jäävad tavaliselt siia:

1. Alustuseks klõpsake vahekaarti "Viited", seejärel klõpsake noolenuppu rühmas "Allmärkused", et avada dialoogiboks "Allmärkus ja lõpumärkus".
2. Järgmisena klõpsake nuppu "Teisenda".
3. Seejärel valige suvand "Teisenda kõik joonealused märkused lõpumärkusteks".
4. Ja klõpsake "OK".
5. Viimasena sulgege kast "All- ja lõpumärkus".

Siin on efekt:

2. meetod: teisendage kõik lõpumärkused ühes dokumendis käsitsi joonealusteks märkusteks

Lõpumärkuste teisendamine joonealusteks märkusteks on väga sama.

1. Korrake 1. meetodi samme 2 ja 1.
2. Seekord valige selle asemel valik "Teisenda kõik lõpumärkused allmärkusteks".
3. Siiski korrake 4. meetodi samme 5 ja 1.

Kontrollige järgmist tulemust:

3. meetod: teisendage VBA kaudu kõik joonealused märkused ühes dokumendis lõpumärkusteks

1. Kõigepealt vajutage Wordis VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
2. Järgmisena klõpsake nuppu "Tavaline".
3. Klõpsake vahekaarti "Sisesta".
4. Ja valige rippmenüüst "Moodul".
5. Seejärel topeltklõpsake moodulil selle avamiseks.
6. Kleepige sinna järgmised koodid:

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. Lõpuks klõpsake nuppu „Käivita“.

4. meetod: teisendage kõik lõpumärkused joonealusteks märkusteks ühes dokumendis VBA kaudu

Samamoodi järgige makro installimiseks ja käivitamiseks samu samme 3. meetodis. Kuid asendage makro järgmisega:

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. meetod: teisendage VBA kaudu kõik joonealused märkused lõpumärkusteks mitmes dokumendis

Kui teil on palju faile, korraldage need kõigepealt ühte kausta. Seejärel installige ja käivitage see 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

Selle makro käivitamisel avaneb sisestuskast, kuhu peaksite sisestama kausta tee. Ja ärge unustage, et kausta aadressi lõpus peaks olema "\".

6. meetod: teisendage VBA kaudu mitme dokumendi kõik lõpumärkused joonealusteks märkusteks

Lõpuks on siin makro mitme dokumendi lõpumärkuste automaatseks teisendamiseks joonealusteks märkusteks:

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

Kuidas parandada sõnaprobleeme

Sõna võib ebaõnnestuda ilma märgita. Kuigi teile võib tunduda uskumatu, et selline halb õnn teid leiab, ei jää teil muud üle, kui pöörduda kvalifitseeritud remonditööriista poole. korrumpeerunud dok.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas kahjustatud Excel ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom