6 būdai, kaip konvertuoti visas išnašas į galines ir atvirkščiai savo Word dokumente

Šiame straipsnyje mes pateiksime jums 6 būdus, kaip konvertuoti visas išnašas į išnašas ir atvirkščiai Word dokumente.

Visiems žinoma, kad pagal numatytuosius nustatymus išnašų tekstai yra išdėstyti atskirų puslapių apačioje, o galinės pastabos – dokumento pabaigoje. Tačiau tokie numatytieji nustatymai negali patenkinti žmonių visą laiką. Net „Word“ turi įmontuotą komandą, skirtą vartotojams konvertuoti išnašas į išnašas ir atvirkščiai. Todėl mes sugeneruojame 6 būdus, kuriuos galite pasiimti.

1 būdas: rankiniu būdu konvertuokite visas išnašas į viename dokumente esančias išnašas

Čia dažniausiai lieka išnašos ir galinės pastabos:

1. Norėdami pradėti, spustelėkite skirtuką „Nuorodos“, tada spustelėkite rodyklės mygtuką grupėje „Išnašos“, kad atidarytumėte dialogo langą „Išnaša ir pabaiga“.
2. Tada spustelėkite mygtuką „Konvertuoti“.
3. Tada pasirinkite parinktį „Konvertuoti visas išnašas į galines pastabas“.
4. Ir spustelėkite „Gerai“.
5. Galiausiai uždarykite laukelį „Išnaša ir pabaiga“.

Čia yra efektas:

2 būdas: rankiniu būdu konvertuokite visas išnašas į išnašas viename dokumente

Paversti išnašas į išnašas yra labai tas pats.

1. Pakartokite 1 metodo 2 ir 1 veiksmus.
2. Šį kartą vietoj to pasirinkite parinktį „Konvertuoti visas galines pastabas į išnašas“.
3. Vis dėlto pakartokite 4 metodo 5 ir 1 veiksmus.

Patikrinkite šį rezultatą:

3 būdas: konvertuokite visas išnašas į pabaigos pastabas viename dokumente naudodami VBA

1. Pirmiausia paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių „Word“.
2. Tada spustelėkite „Normalus“.
3. Spustelėkite skirtuką „Įterpti“.
4. Ir išskleidžiamajame meniu pasirinkite „Modulis“.
5. Tada dukart spustelėkite modulį, kad jį atidarytumėte.
6. Įklijuokite šiuos kodus:

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. Galiausiai spustelėkite „Vykdyti“.

4 būdas: konvertuokite visas išnašas į išnašas viename dokumente naudodami VBA

Panašiai atlikite tuos pačius 3 metodo veiksmus, kad įdiegtumėte ir paleistumėte makrokomandą. Tačiau pakeiskite makrokomandą tokia:

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 būdas: paketiniu būdu konvertuokite visas išnašas į kelių dokumentų išnašas per VBA

Jei turite susidoroti su daugybe failų, pirmiausia sutvarkykite juos viename aplanke. Tada įdiekite ir paleiskite šią makrokomandą:

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

Vykdant šią makrokomandą atsiras įvesties laukelis, kuriame turėtumėte įvesti aplanko kelią. Ir nepamirškite, kad aplanko adreso pabaigoje turėtų būti „\“.

6 būdas: Pakeiskite visas galines pastabas į išnašas keliuose dokumentuose per VBA

Galiausiai, čia yra makrokomanda, skirta automatiškai konvertuoti kelių dokumentų galines pastabas į išnašas:

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

Kaip išspręsti Word problemas

Žodis gali žlugti be jokio ženklo. Nors jums gali atrodyti neįtikėtina, kad tokia nesėkmė jus suras, jūs neturite kito pasirinkimo, kaip tik kreiptis į kvalifikuotą remonto įrankį, kad pataisytumėte korumpuotas doc.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas Excel bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com