Cara Menemukan dan Mengganti Konten di Banyak Dokumen Word

Dalam artikel hari ini, kami dengan senang hati memberi tahu Anda tentang cara menemukan dan mengganti konten dalam beberapa dokumen Word.

Secara umum, sebagian besar pengguna Word cukup familiar dengan fitur "Cari dan Ganti" di perangkat lunak tersebut. Fitur ini membantu kita dalam proses pencarian massal di seluruh dokumen, yang menghemat banyak waktu. Lalu, pernahkah Anda berpikir untuk menggunakan opsi ini pada banyak dokumen, seperti semua file di bawah folder tertentu?

Karena selalu ada kebutuhan untuk mencari dan mengganti konten dalam kumpulan file, alangkah baiknya jika fungsi tersebut direalisasikan. Dan cara kami adalah menggunakan makro. Silakan baca terus untuk mengetahui detail lebih lanjut.

Langkah-langkah untuk Menginstal dan Menjalankan Macro

1. Pertama dan terpenting, masukkan semua file ke dalam satu folder dan buka Word.
2. Kemudian klik tab "Pengembang".
3. Selanjutnya klik "Visual Basic". Atau cukup tekan "Alt+ F11" untuk memicu editor VBA.
4. Kemudian klik proyek "Normal".
5. Selanjutnya klik tab “Sisipkan” dan kemudian pilih “Modul”.
6. Sekarang Anda telah berhasil memasukkan modul baru. Klik dua kali untuk membuka ruang pengkodean.
7. Tempel kode di bawah ini:

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Terakhir, klik "Jalankan".
9. Sekarang akan ada kotak input yang muncul. Masukkan jalur folder tempat Anda menyimpan dokumen.
10. Kemudian klik "OK" dan ada kotak kedua. Masukkan teks yang ingin Anda temukan.
11. Terus klik "OK" untuk membuka kotak input ketiga, di mana Anda memasukkan teks pengganti dan klik tombol "OK" di sana. Makro akan secara otomatis mengganti semua konten dan menyimpan perubahannya.

Seperti yang Anda lihat, makro ini memberi Anda 3 kotak input tempat Anda dapat memasukkan jalur folder, menemukan dan mengganti teks. Jadi Anda dapat menetapkan tombol untuk makro ini dan menambahkannya ke "Bilah Alat Akses Cepat" untuk digunakan kembali.

Untuk cara menetapkan tombol ke makro, Anda dapat membaca artikel ini: Cara Menghapus Pemformatan Teks yang Disisipkan dengan Makro dan VBA di Word Anda

Lindungi Data Berharga

Kesalahan dan masalah dapat terjadi di Word. Akibatnya, dokumen berharga bisa rusak. Saat berhadapan dengan kerusakan doc, disarankan untuk mendapatkan alat pemulihan profesional untuk mengambil data.

Pengantar Penulis:

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