4 Kaedah Pantas untuk Menghapus Kerosakan Halaman yang Tidak Diingini dalam Dokumen Word Anda

Dalam catatan ini, kami akan memberi tumpuan kepada memperkenalkan 4 kaedah pantas kepada anda untuk membuang pemisah halaman yang tidak diingini dalam dokumen Word anda.

Word memasukkan pemisah halaman automatik apabila ia melompat dari satu halaman ke halaman seterusnya. Selain itu, anda boleh memasukkan pemisah halaman manual selepas penghujung julat teks. Kemudian anda akan memulakan teks di bahagian atas halaman seterusnya. Untuk cara memasukkan pemisah halaman manual, anda boleh rujuk artikel ini: 5 Cara Memasukkan Pecahan Halaman dengan pantas ke dalam Dokumen Word Anda

Walau bagaimanapun, anda harus memahami bahawa jeda halaman automatik tidak dapat dilihat dan dengan itu tidak dapat dihapuskan secara manual. Tetapi jeda halaman manual yang dimasukkan. Oleh itu, artikel kami akan terutama memberi anda kaedah yang berguna untuk menghilangkan jeda halaman manual yang tidak diingini dalam dokumen Word.   

Kaedah 1: Buang Kerosakan Halaman Secara Manual

1. Pertama sekali, anda harus mengklik perintah "Tunjukkan / Sembunyikan" di bawah tab "Rumah" untuk mendedahkan semua tanda dan simbol tersembunyi dalam dokumen sehingga anda dapat melihat pemecahan halaman.
2. Seterusnya, pilih jeda halaman dan tekan "Delete" untuk menyingkirkannya.
3. Atau anda boleh klik di sebelah kiri jeda halaman dan kemudian tekan "Padam".

Kaedah 2: Gunakan "Cari dan Ganti" Ciri

1. Sebagai permulaan, tekan "Ctrl + H" untuk mencetuskan kotak "Cari dan Ganti".
2. Kemudian letakkan kursor di dalam kotak teks "Cari apa" dan klik tab "Lagi".
3. Seterusnya klik "Special" dan pilih "Manual Page Break" pada menu tersebut.
4. Akhirnya, biarkan kotak "Ganti dengan" kosong dan klik "Ganti Semua" untuk membuang setiap jeda halaman dalam dokumen.

Kaedah 3: Jalankan Makro untuk Menghapus Semua Pecahan Halaman dalam Dokumen

1. Pertama, cetuskan editor VBA di Word dengan menekan "Alt + F11".
2. Klik seterusnya projek "Normal" di lajur kiri.
3. Kemudian klik "Insert" pada bar menu dan pilih "Module".
4. Buka modul dengan klik dua kali dan tampal kod berikut di sana:

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. Terakhir, tekan "F5" untuk melaksanakan kod.

Kaedah 4: Padam Semua Pecahan Halaman dalam Semua Dokumen dalam Folder

Untuk menghapus semua jeda halaman dalam semua dokumen dalam folder, anda dapat menggunakan kaedah ini.

1. Untuk memasang dan menjalankan makro, anda boleh merujuk langkah-langkah dalam kaedah 3.
2. Dan ingat untuk mengganti dengan makro ini di bawah:

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      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 = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

Makro akan mencetuskan tetingkap "Semak Imbas". Pilih folder yang mengandungi dokumen sasaran anda dan klik "OK" untuk meneruskan.

Bersedia untuk Bencana Data

Ramai di antara anda telah mengetahui rawak kehilangan data. Bagi pengguna Word, disarankan juga bersiap sedia untuk menghadapi sebarang bencana data. Dan salah satu kaedah terbaik adalah dengan mendapatkan a pembaikan docx alat di muka.

Pengenalan Pengarang:

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