Cara Menghapus Sebilangan Halaman dengan pantas dalam Dokumen Word Anda melalui VBA

Penyelesaian Perkataan 28 September 2025

Dalam artikel ini, kami akan memberi tumpuan untuk menunjukkan kepada anda cara menghapus banyak halaman dalam dokumen Word anda melalui VBA.

Mendraf dokumen memerlukan pelarasan sepanjang masa. Dan memadam halaman kandungan adalah sama pentingnya dengan pengubahsuaian lain. Untuk mengalih keluar teks yang tidak berguna adalah mudah. Kebanyakan orang memilih untuk membuat pilihan dan kemudian menekan sama ada "Padam" atau "Backspace" akan melakukan tugas tersebut.

Ini pasti akan mendapat apa yang anda mahukan. Tetapi ada yang lebih pantas untuk melakukannya. Terlebih lagi, anda melangkau langkah pemilihan dan memadam berbilang halaman sekaligus. Pendekatan yang menarik adalah menjalankan makro Word.

Padam Halaman Semasa

Bagi mereka yang tidak suka membuat pilihan dalam berbagai teks, ini boleh menjadi berkat anda. Mula-mula mari tunjukkan cara menghapus halaman semasa melalui VBA.

Sebagai permulaan, letakkan kursor pada halaman yang ingin anda hapus.
Buka editor VBA di Word dengan mengklik tab "Pembangun" dan kemudian "Visual Basic". Sekiranya tab "Pembangun" belum tersedia di Pita, tekan "Alt + F11" sebagai gantinya.
Kedua, klik "Normal".
Kemudian klik "Insert" dan pilih "Module" pada menu tersebut.
Buka modul baru dengan klik dua kali.
Dan tampal kod berikut di sana:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

Akhirnya, klik butang "Jalankan" atau tekan "F5".

Padam Beberapa Halaman

Ikuti langkah di atas untuk memasang dan menjalankan makro.
Gantikan makro dengan yang berikut:

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

Menjalankan makro akan mencetuskan kotak input. Masukkan nombor halaman dari halaman yang akan dihapus, dan gunakan koma untuk memisahkannya. Jangan masukkan ruang selepas koma.
Kemudian klik "OK" untuk meneruskan.

Sudah tentu, anda boleh menggunakan makro ini untuk menghapus halaman semasa. Cukup masukkan nombor halaman.

Jangan Biarkan Rasuah Menghentikan Anda

Sebaik sahaja bencana data berlaku, ia pasti akan memperlahankan kerja harian anda dan anda juga perlu menanggung kos tambahan. Untuk memastikan data anda selamat dan kukuh, lebih baik anda mendapatkan kerosakan doc membaiki alat.

Pengenalan Pengarang:

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