3 Cara Cepat Memasukkan Bagian ke Dokumen Word Anda

Pada artikel ini, kami akan fokus untuk menunjukkan kepada Anda 3 cara menyisipkan pemisah bagian dengan cepat ke dalam dokumen Word Anda.

Hentian bagian berguna untuk membagi dokumen menjadi beberapa bagian, bab, dll. Selain itu, menyisipkan pemisah bagian merupakan bagian yang sangat diperlukan untuk mengatur tajuk atau footer yang berbeda pada halaman yang berbeda.

Biasanya, kita harus menavigasi ke halaman dan menempatkan kursor pada posisi yang tepat. Selanjutnya klik "Tata Letak Halaman" dan "Istirahat". Dan kemudian pilih jenis hentian bagian pada menu drop-down. Proses seperti itu terkadang bisa membosankan. Oleh karena itu, kami ingin menyelamatkan Anda dari rutinitas biasa dan mengadopsi solusi cepat dan kotor.

Metode 1: Sisipkan Hentian Bagian pada Halaman Tertentu

1. Pertama-tama, tekan "Alt + F11" di Word untuk memanggil editor VBA.
2. Selanjutnya buat modul baru dengan mengklik "Normal" di kolom kiri.
3. Kemudian klik tab "Sisipkan" pada bilah menu.
4. Dan pilih "Modul" pada menu drop-down "Sisipkan".
5. Klik dua kali pada modul baru untuk membukanya.
6. Tempel makro berikut di area pengkodean:

Sub InsertBreakOnSpecificPage()
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  Selection.Collapse wdCollapseEnd
  Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub

7. Sekarang, klik "Run" atau tekan "F5" untuk menjalankan kode.
8. Selanjutnya, masukkan nomor halaman target di kotak yang diminta. Kemudian klik “OK” untuk melanjutkan.

Sejauh ini, Anda telah menyisipkan pemisah bagian di akhir halaman 2.

Note:

Jika Anda ingin memisahkan beberapa halaman berturut-turut sebagai bagian dengan penggunaan pemisah bagian, Anda perlu menyisipkan pemisah bagian dua kali, satu di akhir halaman terakhir dari bagian sebelumnya dan satu di akhir halaman terakhir dari bagian baru ini .

Dalam kasus seperti itu, saat memasukkan jeda pertama, Anda harus ingat memasukkan nomor yang benar yaitu nomor halaman dari halaman terakhir dari bagian sebelumnya.

Metode 2: Sisipkan Hentian Bagian di Setiap Halaman Dokumen

1. Pertama, instal dan jalankan makro mengikuti langkah-langkah di atas dengan tepat.
2. Kemudian ganti makro dengan yang ini:

Sub InsertBreakOnEachPage()
  Dim nTotalPageNumber As Integer
 
  For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Collapse wdCollapseEnd
    Selection.InsertBreak Type:=wdSectionBreakContinuous
  Next
End Sub

Makro ini menyisipkan hentian bagian di akhir setiap halaman dokumen saat ini.

Metode 3: Sisipkan Hentian Bagian di Setiap Halaman dari Beberapa Dokumen

1. Pertama-tama, letakkan semua dokumen target dalam folder yang sama.
2. Kemudian, instal dan jalankan makro dengan instruksi yang tepat.
3. Kali ini, gunakan kode berikut:

Sub InsertBreaksIntoMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim nTotalPageNumber As Integer
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
      Application.Browser.Target = wdBrowsePage
      ActiveDocument.Bookmarks("\page").Range.Select
      Selection.Collapse wdCollapseEnd
      Selection.InsertBreak Type:=wdSectionBreakContinuous
    Next
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Makro akan memicu jendela "Jelajahi". Pilih folder tempat Anda menyimpan dokumen dan klik "OK".

Prosesnya tidak lebih dari beberapa detik.

Alat Berguna untuk Korupsi Dokumen

Sungguh pengalaman yang membuat frustrasi menghadapi dokumen yang rusak. Dalam skenario seperti itu, alat yang baik dan andal yang dapat membantu perbaiki Word dokumen harus dapat banyak meredakan kecemasan seseorang. Oleh karena itu, Anda harus sangat berhati-hati saat memilih alat perbaikan. Utilitas yang tidak mencukupi dapat menyebabkan kerusakan lebih lanjut.

Pengantar Penulis:

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