3 Cara Memasukkan Keretakan Bahagian dengan pantas ke dalam Dokumen Word Anda

Dalam artikel ini, kami akan memberi tumpuan untuk menunjukkan kepada anda 3 cara untuk memasukkan pecahan bahagian dengan cepat ke dalam dokumen Word anda.

Pemecahan bahagian berguna untuk membahagikan dokumen menjadi beberapa bahagian, bab, dan lain-lain. Selain itu, untuk memasukkan jeda bahagian adalah bahagian yang sangat diperlukan untuk menetapkan tajuk atau footer yang berbeza pada halaman yang berbeza.

Biasanya, kita perlu menavigasi ke halaman dan mencari kursor pada kedudukan yang betul. Klik seterusnya "Layout Halaman" dan "Breaks". Dan kemudian pilih jenis pemecahan bahagian pada menu lungsur. Proses seperti itu kadang-kadang membosankan. Oleh itu, kami ingin menyelamatkan anda dari rutin biasa dan menggunakan penyelesaian cepat dan kotor.

Kaedah 1: Masukkan Pecahan Bahagian pada Halaman Tertentu

1. Mula-mula, tekan "Alt + F11" di Word untuk memanggil penyunting VBA.
2. Seterusnya buat modul baru dengan mengklik "Normal" di lajur kiri.
3. Kemudian klik tab "Masukkan" pada bar menu.
4. Dan pilih "Module" pada menu drop-down "Insert".
5. Klik dua kali pada modul baru untuk membukanya.
6. Tampal makro berikut di kawasan pengekodan:

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 "Jalankan" atau tekan "F5" untuk melaksanakan kod.
8. Seterusnya, masukkan nombor halaman bagi halaman sasaran dalam kotak gesaan. Dan klik “OK” untuk meneruskan.

Setakat ini, anda telah memasukkan jeda bahagian di akhir halaman 2.

Nota:

Sekiranya anda ingin memisahkan beberapa halaman berturut-turut sebagai bahagian dengan penggunaan rehat bahagian, anda perlu memasukkan jeda bahagian dua kali, satu di akhir halaman terakhir bahagian sebelumnya dan satu di akhir halaman terakhir bahagian baru ini .

Dalam kes sedemikian, semasa memasukkan jeda pertama, anda harus ingat memasukkan nombor yang betul iaitu nombor halaman dari halaman terakhir dari bahagian sebelumnya.

Kaedah 2: Masukkan Keratan Bahagian di Setiap Halaman Dokumen

1. Pertama, pasang dan jalankan makro dengan betul mengikut langkah di atas.
2. Kemudian gantikan makro dengan yang berikut:

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 memasukkan jeda bahagian di akhir setiap halaman dokumen semasa.

Kaedah 3: Masukkan Keratan Bahagian pada Setiap Halaman Berbilang Dokumen

1. Untuk bermula, letakkan semua dokumen sasaran dalam folder yang sama.
2. Kemudian sama, pasang dan jalankan makro dengan arahan yang betul.
3. Kali ini, gunakan kod ini:

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 mencetuskan tetingkap "Browse". Pilih folder tempat anda menyimpan dokumen dan klik "OK".

Prosesnya tidak akan melebihi beberapa saat.

Alat Berguna untuk Rasuah Dokumen

Ini adalah pengalaman yang mengecewakan untuk menghadapi dokumen yang rosak. Dalam senario sedemikian, alat yang baik dan boleh dipercayai dapat membantu membaiki Word dokumen mesti dapat mengurangkan kebimbangan seseorang. Oleh itu, anda perlu berhati-hati semasa memilih alat pembaikan. Utiliti yang tidak mencukupi boleh menyebabkan kerosakan selanjutnya.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Pemulihan Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com