Cara Mencari dan Mengganti Kandungan dalam Beberapa Dokumen Word

Dalam artikel hari ini, kami dengan senang hati memberitahu anda cara mencari dan mengganti kandungan dalam beberapa dokumen Word.

Secara amnya, kebanyakan pengguna Word agak biasa dengan ciri "Cari dan Ganti" dalam perisian ini. Ia membantu kita dengan proses kelompok melalui keseluruhan dokumen, yang menjimatkan banyak masa kita. Jadi, pernahkah anda terfikir untuk menggunakan pilihan ini dalam berbilang dokumen, seperti semua fail di bawah folder tertentu?

Oleh kerana selalu ada keperluan untuk mencari dan mengganti kandungan dalam sekumpulan fail, ada baiknya fungsi tersebut direalisasikan. Dan cara kami adalah menggunakan makro. Sila baca untuk mengetahui lebih banyak maklumat.

Langkah Memasang dan Menjalankan Makro

1. Pertama sekali, letakkan semua fail dalam satu folder dan buka Word.
2. Kemudian klik tab "Pembangun".
3. Klik seterusnya "Visual Basic". Atau tekan "Alt + F11" untuk mencetuskan editor VBA.
4. Kemudian klik projek "Normal".
5. Selanjutnya klik tab “Insert” dan kemudian pilih “Module”.
6. Kini anda berjaya memasukkan modul baru. Klik dua kali di atasnya untuk membuka ruang pengekodan.
7. Tampal kod berikut:

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 jalan folder tempat anda menyimpan dokumen.
10. Kemudian klik "OK" dan ada kotak kedua. Masukkan teks yang ingin anda cari.
11. Terus klik "OK" untuk membuka kotak input ketiga, di mana anda memasukkan teks pengganti dan klik butang "OK" di sana. Makro akan menggantikan semua kandungan secara automatik dan menyimpan perubahannya.

Seperti yang anda lihat, makro ini memberi anda 3 kotak input di mana anda boleh memasukkan jalur folder, mencari dan menggantikan teks. Oleh itu, anda boleh menetapkan butang untuk makro ini dan menambahkannya ke "Bar Alat Akses Pantas" untuk digunakan semula.

Mengenai cara menetapkan butang ke makro, anda boleh membaca artikel ini: Cara Menghapus Pemformatan Teks Tampal dengan Makro dan VBA di Word Anda

Lindungi Data Berharga

Kesalahan dan masalah boleh berlaku di Word. Akibatnya, dokumen berharga boleh rosak. Semasa bertemu dengan kerosakan doc, disarankan untuk mendapatkan alat pemulihan profesional untuk mendapatkan kembali data.

Pengenalan Pengarang:

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