Cara Mencari dan Mengganti Beberapa Item dalam Dokumen Word Anda

Dalam artikel hari ini, kami ingin menerangkan kepada anda tentang cara mencari dan mengganti beberapa item dalam dokumen Word anda.

Fungsi bawaan dalam Word, "Cari dan Ganti", membolehkan kita mencari dan mengganti kata atau frasa pada satu masa. Ini tentu tidak dapat memenuhi keperluan kita untuk pemprosesan kumpulan.

Sebenarnya, kami telah memperluas fungsi untuk mencari pelbagai item dalam satu artikel sebelumnya. Untuk keterangan lebih lanjut, anda boleh merujuk artikel ini: 2 Cara Pantas untuk Mencari Beberapa Item dalam Dokumen One Word pada Masa Yang Sama

Pautan di atas membincangkan cara mencari pelbagai item pada masa yang sama. Artikel ini juga akan menunjukkan kepada anda bagaimana untuk mengganti setiap item dengan yang baru masing-masing.

Jalankan Word VBA untuk Mencari dan Mengganti Beberapa Item

Makro adalah satu-satunya cara yang tersisa untuk melakukan tugas pemprosesan khusus dan batch di Word. Ikuti sahaja langkah berikut untuk menyelesaikan misi anda.

1. Pertama dan utamaost, buka tardapatkan dokumen.
2. Kemudian klik tab "Pembangun" jika tersedia di Pita.
3. Dan klik "Visual Basic" di sebelah untuk membuka editor VBA di Word. Atau anda boleh memilih untuk menekan "Alt + F11" sebagai gantinya.
4. Klik seterusnya "Normal" di lajur kiri.
5. Dan pergi ke bar menu untuk mengklik "Masukkan".
6. Pada menu lungsur, pilih "Modul".
7. Kemudian klik dua kali pada modul baru untuk membukanya.
8. Tampal kod berikut pada modul:

Sub FindAndReplaceMultiItems()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim nSplitItem As Long
   
  Application.ScreenUpdating = False

  ' Enter items to be replaces and new ones.
  strFindText = InputBox("Enter items to be found here,seperated by comma: ", "Items to be found")
  strReplaceText = InputBox("Enter new items here, seperated by comma: ", "New items")
  nSplitItem = UBound(Split(strFindText, ","))

  ' Find each item and replace it with new one respectively.
  For nSplitItem = 0 To nSplitItem
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Split(strFindText, ",")(nSplitItem)
        .Replacement.Text = Split(strReplaceText, ",")(nSplitItem)
        .Format = False
        .MatchWholeWord = False
      End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
Next nSplitItem

  Application.ScreenUpdating = True

End Sub

9. Tekan "F5" untuk menjalankan makro.
10. Sekarang akan ada kotak input pertama. Masukkan item yang akan dijumpai dan gunakan koma untuk memisahkan. Jangan masukkan ruang selepas koma.
11. Kemudian klik "OK" untuk meneruskan.
12. Di kotak input kedua, masukkan item baru dan asingkan dengan koma.
13. Akhirnya, klik "OK".

Menghadapi Kehilangan Data

Sukar untuk ceria ketika menghadapi bencana data yang mungkin memusnahkan maklumat berharga. Namun, tidak perlu panik kerana anda dapat memperoleh Pembaikan perkataan utiliti dengan mengeluarkan sejumlah kecil wang.

Pengenalan Pengarang:

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