2 Cara Cepat Menemukan Banyak Item dalam Satu Dokumen Word pada Waktu yang Sama

Dalam postingan ini, fokus kami adalah menunjukkan 2 cara cepat untuk menemukan beberapa item dalam satu dokumen Word secara bersamaan.

Siapa pun yang terbiasa dengan Word harus mengetahui opsi "Temukan dan Ganti" dengan cukup baik. Ini berfungsi dengan baik ketika teks yang ditemukan adalah string yang berurutan. Tapi, sayangnya, menjadi rumit ketika kita ingin mencari beberapa kata yang berbeda pada waktu yang bersamaan. Dan di luar sana, permintaan kuat untuk mencoret daftar kata atau frasa dalam satu dokumen sekaligus. Misalnya, jika Anda seorang editor, mungkin ada beberapa kata yang seharusnya tidak pernah muncul di dokumen mana pun. Jika demikian, Anda akan memerlukan solusi untuk menandai kemunculan beberapa kata tertentu.

Berikut 2 solusi yang tersedia:

Metode 1: Impor Kata ke Kamus Kecualikan

Tambahkan sekumpulan kata atau frasa ke kamus pengecualian di Word, dan kemudian akan ada garis gelombang merah yang muncul di bawah kata yang cocok untuk menandainya.

Langkah-langkah mendetail untuk menambahkan kata ke kamus pengecualian ada di artikel ini: 4 Tip Berguna untuk Word Spelling dan Grammar Checker

Metode 2: Gunakan Makro Kata

1. Pertama dan terpenting, masukkan semua kata yang ingin Anda cari ke dalam satu dokumen. Setiap kata atau frasa harus menempati satu paragraf. Di sini, mari kita sebut dokumen ini sebagai "dokumen daftar". Simpan dokumen tersebut.
2. Kedua, klik tab "Pengembang".
3. Kemudian klik "Visual Basic" untuk membuka editor VBA. Cara alternatifnya adalah dengan menekan “Alt + F11”.
4. Selanjutnya klik "Normal" lalu tab "Sisipkan".
5. Dan pilih "Modul" di menu.
6. Klik dua kali pada modul baru untuk menampilkan area pengeditan dan tempel makro berikut di sana:

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

7. Terakhir, klik "Jalankan".
8. Sekarang ada sebuah kotak. Masukkan jalur dan nama dokumen daftar yang baru saja Anda simpan. Lalu klik "OK".

Hal berikutnya yang Anda lihat adalah semua kata yang ditemukan dalam penyorotan.

Amankan Dokumen Word Anda

Salah satu cara paling populer untuk mencegah dokumen Word Anda rusak adalah dengan membuat cadangan. Cadangan dapat memberi Anda ketenangan pikiran saat Anda membutuhkannya. docx rusak. Jadi luangkan waktu Anda untuk mencadangkan file penting Anda sekarang.

Pengantar Penulis:

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