3 Cara Cepat Menyisipkan Daftar Isi ke Dokumen Word Anda

Dalam postingan ini, kami akan menunjukkan 3 cara cepat untuk menyisipkan daftar isi ke dalam dokumen Word Anda.

Saat membaca dokumen di Word, Anda bisa menggunakan daftar isi atau panel navigasi untuk membantu diri Anda sendiri melihat-lihat konten dengan cepat. Namun untuk pencetakan, panel navigasi tidak dapat dicetak bersama dengan dokumen. Tapi, yang pertama melakukannya. Oleh karena itu, perlu memasukkan daftar isi ke dalam dokumen Word, terutama yang panjang. Berikut adalah 3 metode efektif.

Metode 1: Sisipkan Daftar Isi Secara Manual

1. Pertama, letakkan kursor di tempat yang Anda inginkan untuk menyimpan daftar isi. Klik tab "Referensi" lalu perintah "Daftar Isi".
2. Selanjutnya pilih "Sisipkan Daftar Isi".
3. Di kotak dialog terbuka, atur konfigurasi yang Anda butuhkan, seperti "Tampilkan level".
4. Klik "OK".

Biasanya, kita menempatkan daftar isi di halaman pertama dokumen. Jika Anda telah memasukkan nomor halaman sebelumnya, Anda akan menemukan dokumen utama sekarang dimulai di halaman 2. Maka inilah situasinya. Beberapa orang ingin halaman dokumen utama dimulai di halaman 1 seperti biasa sementara daftar isi dikecualikan dari penomoran halaman. Untuk melakukan ini, Anda memerlukan operasi tambahan. Baca artikel ini untuk instruksi detail: Cara Memulai Penomoran Halaman dari Halaman Tertentu di Word Anda

Dan ingatlah untuk memperbarui daftar isi Anda setelah semua penyesuaian.

Metode 2: Jalankan Makro Kata

Seperti yang Anda lihat, cara manual untuk memasukkan daftar isi agak melelahkan, dengan masalah seperti mengatur ulang nomor halaman. Untuk alasan ini, kami menyarankan Anda menggunakan cara makro untuk memenuhi tugas ini. Dengan makro, Anda dapat membuat seluruh proses dilakukan secara otomatis dalam hitungan detik.

1. Pertama-tama, tekan “Ctrl+Home” untuk kembali ke awal dokumen.
2. Kemudian tekan "Alt + F11" untuk memicu editor VBA.
3. Selanjutnya klik "Normal" dan kemudian "Sisipkan".
4. Pilih "Modul" dan klik dua kali untuk membuka area pengeditan.
5. Kemudian tempel kode berikut di sana:

Sub InsertTOC()
  Selection.InsertBreak Type:=wdSectionBreakNextPage
  Selection.HomeKey Unit:=wdStory
  With ActiveDocument
    .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
      True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
      LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
      UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _True
    .TablesOfContents(1).TabLeader = wdTabLeaderDots
    .TablesOfContents.Format = wdIndexIndent
  End With
  ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
  With ActiveDocument.Sections(2)
    .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    .Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True
    .Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
  End With
  ActiveDocument.TablesOfContents(1).Update
End Sub

6. Terakhir, klik "Run".

Setelah menjalankan makro, daftar isi yang baru disisipkan akan ditempatkan di halaman pertama dan penomoran halaman dimulai dari halaman kedua. Selain itu, daftar isi juga sudah diperbarui.

Metode 3: Sisipkan Tabel Isi ke Beberapa Dokumen

Jika Anda menyukai kemudahan pemrosesan batch, Anda menggunakan makro berikut:

Sub InsertTOCForMultiDoc()
  Dim objDoc As Document
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = "C:\Users\Public\Documents\New folder\Test1\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Precess each document in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    Selection.HomeKey Unit:=wdStory
    With ActiveDocument
      .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
        True.TablesOfContents(1).TabLeader = wdTabLeaderDots
      .TablesOfContents.Format = wdIndexIndent
    End With
    ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
    With ActiveDocument.Sections(2)
      .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
      .Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True
      .Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
    End With
    ActiveDocument.TablesOfContents(1).Update
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Cukup ikuti langkah-langkah yang sama di metode 2 untuk menginstal dan menjalankan makro.

Catatan

1. Anda harus mengatur semua dokumen di bawah direktori yang sama terlebih dahulu.
2. Jangan pernah lupa untuk mengganti "C: \ Users \ Public \ Documents \ New folder \ Test1 \" dengan path folder Anda yang sebenarnya. Jangan lupa "\" terakhir.

Alat Perbaikan untuk Word

Karena Word akan tiba-tiba mogok, Anda harus menyiapkan alat untuk melakukannya perbaiki Word dan dokumen Word. Pemulihan tepat waktu dapat mengembalikan data sebanyak mungkin. Oleh karena itu, disarankan untuk mendapatkan produk yang mumpuni sebelumnya.

Pengantar Penulis:

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