Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana menemukan dan mengganti teks dalam dokumen Word dari Excel?

Dalam dokumen Word, kita dapat menerapkan fungsi Find and Replace untuk menemukan dan mengganti satu teks dengan cepat. Tapi, jika ada beberapa teks yang perlu ditemukan dan diganti, memasukkan teks satu per satu ke fitur Find and Replace akan memakan waktu. Dalam hal ini, Anda dapat memasukkan temukan dan ganti teks ke dalam daftar sel, dan dengan bantuan kode VBA di Excel untuk menyelesaikan pekerjaan ini dengan mudah. Pada artikel ini, saya juga akan memperkenalkan fitur yang berguna untuk menemukan dan mengganti teks dalam beberapa dokumen Word.

Temukan dan ganti beberapa teks dalam satu dokumen Word dari Excel dengan kode VBA

Temukan dan ganti banyak teks dalam beberapa dokumen Word dari Excel dengan kode VBA

Temukan dan ganti banyak teks dalam beberapa dokumen Word dengan fitur canggih


Temukan dan ganti beberapa teks dalam satu dokumen Word dari Excel dengan kode VBA

Jika Anda ingin menemukan dan mengganti beberapa teks hanya dalam satu file Word, kode VBA berikut dapat membantu Anda.

1. Di lembar kerja Excel, buat kolom yang berisi teks yang ingin Anda temukan dan ganti, dan kolom lain dengan teks untuk diganti seperti gambar di bawah ini. Dan kemudian tekan Alt + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Lalu klik Menyisipkan > Modul, salin dan tempel kode VBA di bawah ini ke jendela.

Kode VBA: Temukan dan ganti beberapa teks dalam satu file Word

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Setelah menempelkan kode, masih dalam Microsoft Visual Basic untuk Aplikasi window, klik Tools > Referensi, lihat tangkapan layar:

4. Di pop-out Referensi - VBAProject kotak dialog, pilih Perpustakaan objek Microsoft Word 16.0 dari kotak daftar, lihat tangkapan layar:

5. Klik OK untuk menutup kotak dialog, dan sekarang, tekan F5 kunci untuk menjalankan kode ini, di jendela Browse pop up, pilih File Word yang ingin Anda ganti teksnya, lihat tangkapan layar:

6. Lalu klik OK, pada kotak dialog berikut, tekan Ctrl untuk memilih teks asli dan sel teks baru secara terpisah yang ingin Anda gunakan, lihat tangkapan layar:

7. Dan kemudian, klik OK tombol, sekarang, teks ditemukan dan diganti dengan teks baru di dokumen yang Anda tentukan, dan file juga terbuka, Anda harus menyimpannya untuk menyimpan perubahan.


Temukan dan ganti banyak teks dalam beberapa dokumen Word dari Excel dengan kode VBA

Di sini, saya juga membuat kode VBA untuk menemukan dan mengganti banyak teks di beberapa dokumen Word, lakukan seperti ini:

1. Buka file Excel yang berisi dua kolom nilai untuk diganti dan diganti seperti gambar di bawah ini, lalu tekan Alt + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Lalu klik Menyisipkan > Modul, salin dan tempel kode VBA di bawah ini ke jendela.

Kode VBA: Temukan dan ganti banyak teks dalam beberapa file Word

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Masih di Microsoft Visual Basic untuk Aplikasi window, klik Tools > Referensi, Dalam Referensi - VBAProject kotak dialog, pilih Perpustakaan objek Microsoft Word 16.0 serta Runtime Microsoft Scripting opsi dari kotak daftar, lihat tangkapan layar:

4. Setelah memeriksa dua opsi, dan klik OK untuk menutup kotak dialog, dan kemudian, terus tekan tombol F5 kunci untuk mengeksekusi kode ini, di pembukaan Browse jendela, pilih folder berisi dokumen Word yang ingin Anda cari dan ganti, lihat tangkapan layar:

5. Klik OK tombol, di kotak dialog yang muncul, tekan Ctrl untuk memilih teks asli dan kolom teks baru secara terpisah yang ingin Anda gunakan, lihat tangkapan layar:

6. Akhirnya, klik OK, dan teks asli diganti dengan yang baru di seluruh file tesis, setelah selesai, kotak dialog akan muncul seperti gambar di bawah ini:

7. Klik OK untuk menutup dialog. Dan Anda dapat membuka file untuk memeriksa hasil yang dikonversi.


Temukan dan ganti banyak teks dalam beberapa dokumen Word dengan fitur canggih

Bagian ini, saya akan berbicara tentang cara mengumpulkan dan mengganti teks dalam beberapa dokumen Word dari Word alih-alih Excel. Dengan alat yang ampuh-Kutools for Word, Anda dapat dengan cepat menemukan dan mengganti teks tertentu dan menggantinya dengan teks baru di file utama, header, footer, komentar, dll. dan menyorot hasilnya sesuai kebutuhan.

1. Buka satu file Word, lalu klik Kutools Plus > Temukan dan Ganti Batch, lihat tangkapan layar:

2. Di tempat terbuka Temukan dan Ganti Batch kotak dialog, lakukan operasi berikut:

  • Klik Add tombol untuk menambahkan file Word di mana Anda ingin mencari dan mengganti teks;
  • Di panel kiri, klik Menambahkan baris dari pita atas;
  • Di bidang yang disisipkan, masukkan teks asli dan teks baru ke dalam Menemukan serta menggantikan kolom secara terpisah yang ingin Anda temukan dan ganti. Selain itu, Anda dapat menentukan warna untuk menyorot teks yang diganti sesuai kebutuhan.

3. Setelah membuat kriteria pencarian, klik menggantikan tombol untuk pergi ke Pratinjau Hasil tab untuk melihat hasil pencarian dan penggantian. Lihat tangkapan layar:

4. Lalu klik Close tombol, dan kotak prompt muncul untuk mengingatkan Anda jika Anda ingin menyimpan skenario ini, klik Yes untuk menyimpannya, dan klik Tidak untuk mengabaikannya, lihat tangkapan layar:

Tips: Fitur ini juga dapat membantu untuk mencapai operasi berikut:
  • Temukan dan ganti karakter khusus di beberapa dokumen Word;
  • Temukan dan ganti beberapa string dengan pemformatan khusus di beberapa dokumen Word;
  • Temukan dan ganti beberapa string dalam beberapa file txt/htm/html.

Klik untuk mengetahui informasi lebih detail tentang fitur ini…


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan