6 Cara Mengonversi Semua Catatan Kaki menjadi Catatan Akhir dan Sebaliknya di Dokumen Word Anda

Pada artikel ini, kami akan memberi Anda 6 cara untuk mengubah semua catatan kaki menjadi catatan akhir dan sebaliknya di dokumen Word Anda.

Diketahui semua bahwa secara default, teks catatan kaki disusun di bagian bawah halaman individual sementara catatan akhir ditemukan di akhir dokumen. Namun, pengaturan default seperti itu tidak dapat memuaskan orang setiap saat. Bahkan Word memiliki perintah bawaan bagi pengguna untuk mengubah catatan kaki menjadi catatan akhir dan sebaliknya. Oleh karena itu, kami menghasilkan 6 metode untuk Anda ambil.

Metode 1: Ubah Semua Catatan Kaki menjadi Catatan Akhir dalam Satu Dokumen Secara Manual

Di sinilah biasanya catatan kaki dan catatan akhir berada:

1. Untuk memulainya, klik tab "Referensi" lalu klik tombol panah di grup "Catatan Kaki" untuk membuka kotak dialog "Catatan Kaki dan Catatan Akhir".
2. Selanjutnya klik tombol "Ubah".
3. Kemudian pilih opsi "Ubah semua catatan kaki menjadi catatan akhir".
4. Dan klik "OK".
5. Terakhir, tutup kotak "Catatan kaki dan Catatan Akhir".

Inilah efeknya:

Metode 2: Ubah Semua Catatan Akhir menjadi Catatan Kaki dalam Satu Dokumen Secara Manual

Untuk mengubah catatan akhir menjadi catatan kaki hampir sama.

1. Ulangi langkah 1 dan 2 di metode 1.
2. Kali ini pilih opsi "Ubah semua catatan akhir menjadi catatan kaki".
3. Namun, ulangi langkah 4 dan 5 di metode 1.

Periksa hasil berikut:

Metode 3: Ubah Semua Catatan Kaki menjadi Catatan Akhir dalam Satu Dokumen melalui VBA

1. Pertama, tekan "Alt + F11" untuk membuka editor VBA di Word.
2. Selanjutnya klik "Normal".
3. Klik tab "Sisipkan".
4. Dan pilih "Modul" pada menu drop-down.
5. Kemudian klik dua kali pada modul untuk membukanya.
6. Tempel kode berikut di sana:

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. Terakhir, klik "Jalankan".

Metode 4: Ubah Semua Catatan Akhir menjadi Catatan Kaki dalam Satu Dokumen melalui VBA

Demikian pula, ikuti langkah-langkah yang sama di metode 3 untuk menginstal dan menjalankan makro. Tapi, ganti makro dengan yang di bawah ini:

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

Metode 5: Batch Ubah Semua Catatan Kaki menjadi Catatan Akhir di Beberapa Dokumen melalui VBA

Jika ada banyak file yang harus Anda tangani, atur semuanya dalam satu folder terlebih dahulu. Kemudian instal dan jalankan makro ini:

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

Menjalankan makro ini akan memunculkan kotak input di mana Anda harus memasukkan jalur folder. Dan jangan lupa harus ada “\” di akhir alamat folder.

Metode 6: Batch Ubah Semua Catatan Akhir menjadi Catatan Kaki di Beberapa Dokumen melalui VBA

Terakhir, berikut adalah makro untuk mengonversi catatan akhir dalam beberapa dokumen menjadi catatan kaki secara otomatis:

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

Bagaimana Memperbaiki Masalah Word

Kata bisa gagal tanpa tanda. Meskipun Anda mungkin merasa tidak dapat dipercaya bahwa nasib buruk seperti itu akan menjumpai Anda, Anda tidak punya pilihan selain beralih ke alat perbaikan yang memenuhi syarat untuk memperbaikinya. dokumen korup.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Excel rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com