6 na Paraan para I-convert ang Lahat ng Footnote sa Endnote at Vice Versa sa Iyong Word Document

Sa artikulong ito, bibigyan ka namin ng 6 na paraan para i-convert ang lahat ng footnote sa mga endnote at vice versa sa iyong Word document.

Alam ng lahat na bilang default, ang mga text ng footnote ay nakaayos sa ibaba ng mga indibidwal na pahina habang ang mga endnote ay matatagpuan sa dulo ng isang dokumento. Gayunpaman, ang naturang mga default na setting ay hindi maaaring masiyahan ang mga tao sa lahat ng oras. Maging ang Word ay may built-in na command para sa mga user na i-convert ang mga footnote sa mga endnote at vice versa. Samakatuwid, bumubuo kami ng 6 na paraan para kunin mo.

Paraan 1: Manu-manong I-convert ang Lahat ng Footnote sa Mga Endnote sa Isang Dokumento

Dito karaniwang nananatili ang mga footnote at endnote:

1. Upang magsimula, i-click ang tab na "Mga Sanggunian" pagkatapos ay i-click ang arrow na button sa grupong "Mga Talababa" upang buksan ang dialog box na "Talababa at Endnote".
2. Susunod na i-click ang pindutang "I-convert".
3. Pagkatapos ay piliin ang opsyong "I-convert ang lahat ng footnote sa mga endnote."
4. At i-click ang "OK".
5. Panghuli, isara ang kahong "Footnote at Endnote".

Narito ang epekto:

Paraan 2: Manu-manong I-convert ang Lahat ng Endnote sa Mga Footnote sa Isang Dokumento

Ang pag-convert ng mga endnote sa mga footnote ay halos pareho.

1. Ulitin ang hakbang 1 at 2 sa paraan 1.
2. Sa pagkakataong ito, piliin ang opsyong "I-convert ang lahat ng mga endnote sa mga footnote."
3. Gayunpaman, ulitin ang hakbang 4 at 5 sa paraan 1.

Suriin ang sumusunod na resulta:

Paraan 3: I-convert ang Lahat ng Footnote sa Mga Endnote sa Isang Dokumento sa pamamagitan ng VBA

1. Una, pindutin ang "Alt + F11" upang buksan ang VBA editor sa Word.
2. Susunod na pag-click sa "Normal".
3. I-click ang tab na "Ipasok".
4. At piliin ang "Modyul" sa drop-down na menu.
5. Pagkatapos ay i-double click ang module upang buksan ito.
6. I-paste ang mga sumusunod na code doon:

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. Panghuli, i-click ang "Run".

Paraan 4: I-convert ang Lahat ng Endnote sa Mga Footnote sa Isang Dokumento sa pamamagitan ng VBA

Katulad nito, sundin ang parehong mga hakbang sa paraan 3 upang i-install at patakbuhin ang macro. Ngunit, palitan ang macro ng sumisigaw:

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

Paraan 5: Batch I-convert ang Lahat ng Footnote sa Mga Endnote sa Maramihang Dokumento sa pamamagitan ng VBA

Kung sakaling mayroong isang malaking bilang ng mga file na kailangan mong harapin, ayusin mo muna ang lahat sa isang folder. Pagkatapos ay i-install at patakbuhin ang macro na ito:

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

Ang pagpapatakbo ng macro na ito ay magpa-pop up ng isang input box kung saan dapat mong ipasok ang path ng folder. At huwag kalimutang dapat mayroong “\” sa dulo ng address ng folder.

Paraan 6: Batch I-convert ang Lahat ng Endnote sa Mga Footnote sa Maramihang Dokumento sa pamamagitan ng VBA

Panghuli, narito ang macro to batch na nagko-convert ng mga endnote sa maraming dokumento sa awtomatikong footnote:

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

Paano Ayusin ang mga Problema sa Salita

Maaaring mabigo ang salita nang walang palatandaan. Bagama't sa tingin mo ay hindi kapani-paniwala na mahahanap ka ng gayong masamang kapalaran, wala kang pagpipilian kundi ang bumaling sa isang kwalipikadong tool sa pag-aayos upang ayusin sira na doc.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang nasira ang Excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa