3 Cara Memadam Segera Kerosakan Bahagian dalam Dokumen Word Anda

Dalam artikel ini, kami ingin berkongsi dengan anda 3 cara untuk memadamkan semua pemisah bahagian dalam dokumen Word anda dengan cepat.

Pemecahan bahagian berguna dalam membuat berbilang bahagian dalam dokumen Word. Jadi anda boleh memformat bahagian yang berbeza dalam gaya tersendiri. Dan berikut ialah artikel kami sebelum ini untuk anda memasukkan pemisah bahagian dalam dokumen dengan cepat: 3 Cara Memasukkan Keretakan Bahagian dengan pantas ke dalam Dokumen Word Anda

Walau bagaimanapun, adalah perkara biasa untuk menyemak dokumen, seperti menukar gaya, membahagikan semula bahagian, dsb. Khususnya, jika terdapat pelarasan besar yang perlu dibuat, anda mungkin perlu mengalih keluar semua pecahan bahagian. Berikut ialah 3 kaedah yang boleh anda gunakan untuk memadam pemisah bahagian dalam kelompok.

Kaedah 1: Cari Semua Pecahan Bahagian dalam Dokumen

1. Pertama sekali, tekan "Ctrl + H" untuk membuka kotak "Cari dan Ganti" di Word.
2. Seterusnya masukkan kursor di dalam kotak teks "Cari apa".
3. Klik butang "Lagi" untuk mendapatkan lebih banyak pilihan.
4. Kemudian klik "Istimewa" dan pilih "Bahagian Rehat" pada menu. Kemudian anda akan melihat "^ b" di kotak teks "Cari apa". Jadi cara alternatif adalah memasukkan "^ b" secara langsung selepas langkah 2.
5. Terakhir, biarkan kotak "Ganti dengan" kosong dan klik "Ganti Semua". Klik "OK" pada kotak pengesahan.

Kaedah 2: Jalankan Makro untuk Menghapus Semua Pecahan Bahagian dalam Satu Dokumen

Inilah kaedah automatik untuk anda menghilangkan semua jeda bahagian yang tidak diingini.

1. Sebagai permulaan, buka editor VBA di Word dengan menekan "Alt + F11".
2. Kemudian buat modul baru dengan mengklik "Normal".
3. Seterusnya klik "Insert" dan pilih "Module".
4. Sekarang buka modul dengan klik dua kali.
5. Di ruang pengekodan di sebelah kanan, tampal kod berikut:

Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub

6. Akhirnya, klik "Jalankan".

Anda tidak akan mendapat semua rehat bahagian dalam sekejap.

Kaedah 3: Padamkan Semua Pecahan Bahagian dalam Beberapa Dokumen

Begitu juga, kita mesti menjalankan makro jika kita mahu melakukannya dengan cepat dan kotor.

1. Sebelum itu, letakkan semua dokumen sasaran dalam satu folder.
2. Kemudian pasang makro dengan langkah-langkah dalam kaedah 2.
3. Jalankan makro ini sebagai gantinya:

Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  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)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Selanjutnya di tetingkap "Browse" terbuka, pilih folder tempat anda menyimpan dokumen.
5. Akhir sekali, klik "OK".

Bersedia untuk Kehilangan Data

Biasanya, dengan tabiat pengendalian yang baik, semoga berjaya dan segala keberkatan, anda boleh mencapai banyak perkara dalam Word. Tetapi ranap sistem boleh berlaku pada bila-bila masa. Oleh itu, adalah sangat penting untuk membuat sandaran dokumen secara berkala. Dengan sandaran di tangan, anda akan lebih yakin sebelum memulakan. docx betulkan.

Pengenalan Pengarang:

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