Bagaimana cara memilih atau menghapus teks di antara dua bookmark di dokumen Word?

Apakah Anda tahu cara memilih atau menghapus konten di antara dua penanda dalam dokumen Word? Artikel ini akan menunjukkan kepada Anda metode untuk menghadapinya.

Pilih / hapus teks antara dua bookmark dengan VBA

Pilih / hapus teks antara dua bookmark dengan VBA

Misalkan ada dua bookmark di dokumen Anda seperti gambar di bawah ini, Anda dapat memilih atau menghapus semua konten di antara dua bookmark ini dengan kode VBA berikut.

1. Di dalam dokumen, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode di bawah ini ke jendela Modul.

Untuk memilih atau menghapus teks antara dua penanda, silakan gunakan kode di bawah ini:

Kode VBA: Pilih teks di antara dua penanda tertentu di Word:

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

Kode VBA: Hapus teks di antara dua bookmark tertentu di Word:

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. tekan F5 kunci untuk menjalankan kode.

4. Yang pertama Kutools for Word kotak dialog, masukkan nama penanda awal ke dalam kotak teks dan klik OK.

5. Di kedua Kutools for Word kotak dialog, masukkan bookmark akhir dan klik OK. Lihat tangkapan layar:

Note: Jika nama bookmark yang Anda masukkan tidak ada dalam dokumen, kotak dialog Kutools for Word lainnya akan muncul untuk mengingatkan Anda untuk memasukkan yang benar.

Kemudian semua konten di antara penanda yang ditentukan dipilih atau dihapus segera. Lihat tangkapan layar.

Pilih teks di antara dua penanda:

Hapus teks di antara dua penanda.

Tab Office: Menghadirkan antarmuka tab ke Word, Excel, PowerPoint...

Tingkatkan alur kerja Anda sekarang.      Pelajari Lebih Lanjut tentang Tab Office       Free download

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Fitur AI Kutools: Hasilkan Konten / Menulis Ulang Teks / Tanya Jawab Dokumen / Dapatkan Jawaban Cepat / Terjemahkan dokumen / Dokumen Polandia (Format Pertahankan)...

📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF...

✏ Pengeditan Isi: Temukan dan Ganti Batch di Beberapa File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi Hapus kelompok...

➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Banyak Gambar / Temukan lebih lanjut di Menyisipkan kelompok...

🔍 Pilihan Presisi: Tepat Halaman Tertentu / Meja / bentuk / Paragraf Judul / Tingkatkan navigasi dengan lebih Pilih fitur...

⭐ Peningkatan Bintang: Navigasi ke Lokasi Mana Pun / Sisipkan Otomatis Teks Berulang / Beralih Antar Jendela Dokumen / 11 Konversi Tools...

👉 Ingin mencoba fitur-fitur tersebut? Unduh Kutools untuk Word sekarang! 🚀

Free download     Beli sekarang     Pelajari Lebih Lanjut tentang Kutools untuk Word

 

Alat Produktivitas Kantor Terbaik

Kutools for Word - 100+ Alat untuk Word

• 🤖 Fitur AI Kutools: Menghasilkan, Menulis kembali, Meringkaskan, Menterjemahkan Dokumen / Dapatkan Jawaban Cepat / Dokumen Polandia (Format Pertahankan)
• 📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Konversi Batch ke PDF
• ✏ Pengeditan Isi: Temukan dan Ganti Batch / Ubah Ukuran Semua Gambar
• 🧹 Bersih dengan Mudah: Hapus Spasi Ekstra / Hapus Bagian Breaks
• ➕ Sisipan Kreatif: Masukkan Seribu Pemisah / Sisipkan Kotak Centang / Buat Kode QR

Free download Beli sekarang Pelajari Lebih Lanjut tentang Kutools