2 Metode Cerdas untuk Menghapus Isi antara Dua Kata Tertentu dalam Dokumen Word Anda

Pada artikel ini, kami ingin menunjukkan kepada Anda 2 cara cerdas untuk menghapus konten antara 2 kata tertentu dalam dokumen Word Anda.

Di artikel kami sebelumnya, kami telah membahas pendekatan untuk mengekstraknya ke dokumen lain. Untuk detailnya, Anda dapat merujuk ke halaman iniost: Cara Mengekstrak Isi antara Dua Kata Tertentu dari Satu Dokumen Word ke Dokumen Word lainnya

Dan hari ini, kami akan mengilustrasikan 2 cara untuk menghapus konten di antara dua kata tertentu di dokumen Word Anda. Namun, mari kita lihat di mana skenario penerapannya.

1. Pertama-tama, kita cenderung meletakkan teks dalam tanda kurung. Dan setelah beberapa saat, Anda mungkin perlu menghapus atau menulis ulang, seperti di bawah ini:
2. Kedua, di beberapa file log atau laporan lab, Anda mungkin harus menghapus teks di antara 2 kata tertentu. Misalnya, dalam screenshot di bawah, Anda mungkin perlu menghapus teks merah antara "Komentar:" dan "Nilai:".

Sekarang inilah 2 pendekatan.

Metode 1: Gunakan Fitur "Temukan dan Ganti"

1. Pertama, tekan "Ctrl + H" untuk membuka kotak "Temukan dan Ganti".
2. Dalam kotak teks “Find what”, masukkan kata pertama, “*” dan kata kedua. Dalam kasus kami, kami harus memasukkan "Komentar: * Nilai:".
3. Kemudian di kotak teks "Ganti dengan", masukkan kata-kata yang ingin Anda simpan. Misalnya, untuk menghapus hanya konten antar kata, Anda harus memasukkan kata pertama dan kedua di kotak "Ganti dengan", seperti "Nilai Komentar". Atau Anda juga dapat memilih untuk menghapus 2 kata dengan mengosongkan kotak "Ganti dengan".
4. Selanjutnya, klik "Lainnya" untuk menampilkan lebih banyak opsi.
5. Kemudian centang kotak "Gunakan karakter pengganti" dan klik "Ganti Semua".

Metode 2: Jalankan Kode VBA

1. Pertama dan depanost, tekan "Alt + F11" untuk memicu editor VBA di Word.
2. Kemudian klik proyek "Normal" dan kemudian tab "Sisipkan" pada bilah menu.
3. Selanjutnya pilih "Modul" dari menu drop-down "Sisipkan".
4. Modul klik dua kali untuk membukanya dan menempelkan kode berikut di sana:

Sub DeleteTextBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objWord As Object
 
  Set objDoc = ActiveDocument
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .Replacement.Text = strFirstWord & strLastWord
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
    End With
  End With
 
  Set objDoc = Nothing
  Set objWord = Nothing
End Sub

5. Dan klik "Run" atau tekan "F5" untuk mengeksekusi kode.
6. Sekarang di kotak "Kata Pertama", masukkan kata pertama. Dan klik "OK" untuk melanjutkan.
7. Demikian pula, dalam kotak "Kata Terakhir", masukkan kata terakhir. Klik "OK" untuk melanjutkan.

Catatan:

Untuk menghapus 2 kata tersebut juga, Anda dapat mengganti baris kode ini:

.Replacement.Text = strFirstWord & strLastWord

Untuk

.Replacement.Text = “”

Hapus Isi dalam Braket

1. Ikuti langkah-langkah di atas untuk menginstal dan menjalankan makro.
2. Alih-alih, jalankan makro ini:

Sub DeleteTextInAngleBrackets()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "\<(*)\>"
      .MatchWildcards = True
      .Replacement.Text = "<>"
      .Execute Replace:=wdReplaceAll
    End With
  End With
End Sub

Makro di atas dikhususkan untuk menghapus teks dalam tanda kurung siku (<>).

Pastinya, ada banyak jenis tanda kurung di dokumen Anda.

Untuk kawat gigi {}:

menggantikan

.Text = "\<(*)\>"
.Replacement.Text = "<>"

Dengan

.Text = "\{(*)\}"
.Replacement.Text = "{}"

Untuk tanda kurung ():

Gunakan 2 baris ini

.Text = "\((*)\)"
.Replacement.Text = "()"

Untuk tanda kurung siku []:

.Text = "\[(*)\]"
.Replacement.Text = "[]"

Cadangkan File Anda Sekarang

Selalu baik untuk berhati-hati sebelum sesuatu yang buruk terjadi. Dan untuk mencadangkan dokumen Word Anda akan memungkinkan Anda menggunakan versi data terbaru jika terjadi bencana. Kemudian Anda dapat menggunakan alat untuk perbaiki Word tanpa banyak kecemasan.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan xls ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com