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

Bagaimana menemukan dan mengganti beberapa kata secara bersamaan dalam dokumen Word?

Word menyediakan fungsi Temukan dan Ganti untuk menemukan semua contoh kata atau frasa dan menggantinya dengan kata baru pada saat yang bersamaan. Tetapi jika Anda ingin mencari dan mengganti kata yang berbeda pada saat yang sama, fungsi bawaan ini tidak dapat membantu. Pada artikel ini, kita berbicara tentang metode VBA untuk menemukan dan mengganti beberapa kata berbeda secara bersamaan di dokumen Word.

Temukan dan ganti beberapa kata secara bersamaan di Word dengan kode VBA
Temukan dan ganti beberapa kata sekaligus di Word dengan mudah dengan fitur luar biasa


Temukan dan ganti beberapa kata secara bersamaan di Word dengan kode VBA

Harap lakukan hal berikut untuk menemukan dan mengganti beberapa kata pada saat yang sama dalam dokumen Word.

1. Buka dokumen Word yang ingin Anda temukan dan ganti beberapa kata secara bersamaan, kemudian tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Modul.

Kode VBA: Temukan dan ganti beberapa kata secara bersamaan di Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. tekan F5 kunci untuk menjalankan kode.

4. Yang pertama Kutools for Word kotak dialog, masukkan beberapa kata yang akan Anda temukan dan ganti ke dalam kotak teks, dan pisahkan dengan koma, lalu klik OK tombol. Lihat tangkapan layar:

5. Di kedua Kutools for Word kotak dialog, masukkan kata-kata baru yang akan Anda ganti (kata-kata ini juga perlu dipisahkan dengan koma), lalu klik OK .

Catatan: Dalam hal ini, semuanya “KTE” dalam dokumen ini akan diganti dengan "Baru", serta “KTO” serta “KTW” akan diganti dengan "Uji" serta "Selesai". Harap ubah sesuai kebutuhan Anda.


Temukan dan ganti beberapa kata sekaligus di Word dengan mudah dengan fitur luar biasa

The Temukan dan Ganti Batch fitur dari Kutools for Word dapat membantu dengan mudah menemukan dan mengganti teks yang berbeda dalam satu dokumen atau di beberapa dokumen sekaligus.

Sebelum menerapkan fitur ini, harap luangkan waktu untuk unduh dan instal terlebih dahulu.

1. Jalankan aplikasi Microsoft Word, klik Kutools Plus > Temukan dan Ganti Batch.

2. Dalam Temukan dan Ganti Batch jendela, harap konfigurasikan sebagai berikut.

  • 2.1 klik tombol> Tambah File or Tambah Folder untuk menambahkan satu atau lebih dokumen di mana Anda akan menemukan dan mengganti beberapa kata.
  • 2.2 Klik tombol Menambahkan baris tombol untuk menyisipkan bidang cari dan ganti. Jika Anda ingin mencari dan mengganti tiga teks berbeda secara bersamaan, buat tiga baris.
  • 2.3 Di setiap baris, masukkan kata yang ada yang akan Anda ganti dengan yang baru di Menemukan kolom, lalu masukkan kata baru ke dalam menggantikan kolom.
  • 2.4 Tentukan Pencarian Tipe untuk setiap baris.
  • 2.5 Dalam Temukan di kolom, pilih tempat untuk menerapkan temukan dan ganti. Itu termasuk Dokumen utama, Header serta Footer di bagian ini. Anda dapat memilih salah satunya, dua di antaranya atau semuanya berdasarkan kebutuhan Anda.
  • 2.6. Klik menggantikan tombol untuk memulai operasi. Lihat tangkapan layar:

Kemudian kata-kata tertentu diganti dalam dokumen yang dipilih pada saat bersamaan.

olymp trade indonesiaTip: Anda dapat menyorot hasil dengan warna latar belakang dengan menentukan warna tertentu di Menyoroti kolom untuk satu baris.

  Jika Anda ingin memiliki uji coba gratis (60 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Alat Produktivitas Kata yang Direkomendasikan

 

Kutools For Word - Lebih dari 100 Fitur Canggih Untuk Word, Hemat 50% Waktu Anda

  • Pengoperasian yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik.
  • Sisipkan beberapa gambar di seluruh folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan urutan yang Anda inginkan.
  • Pisahkan dokumen saat ini menjadi dokumen terpisah sesuai dengan judul, hentian bagian, atau kriteria lainnya.
  • Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk konversi dan pemilihan umum, dan seterusnya ...
Urutkan komentar berdasarkan
komentar (21)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Toto jsem hledal, jen potřebuji pro hledan teks přidat nějaké formátování. Jak toho dosahnu?
Komentar ini diminimalkan oleh moderator di situs
apakah ini akan berfungsi di kantor Excel 365
Komentar ini diminimalkan oleh moderator di situs
Adakah cara untuk membuat kasus ini sensitif?
Komentar ini diminimalkan oleh moderator di situs
Hai, Ini bekerja dengan baik dengan Kata Bahasa Inggris. Sekarang saya sedang mengerjakan dokumen di mana saya menerjemahkan bahasa Inggris ke bahasa Gujarat. Jadi, ketika saya menerapkan ini, (Temukan Kata Bahasa Inggris) dan (Ganti dengan kata Gujarat), itu berubah tetapi muncul seperti "???". Tidak menunjukkan kata Gujarat tetapi hanya tanda tanya? Ada bantuan lebih lanjut? Tolong.
Komentar ini diminimalkan oleh moderator di situs
Halo Shailesh, menghadapi masalah yang sama. Apakah Anda menemukan solusi untuk itu. Saya juga mencoba mencari cara untuk mengubah dari bahasa Cina ke bahasa Inggris.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana menemukan dan memilih beberapa kata secara bersamaan
Komentar ini diminimalkan oleh moderator di situs
Hai,
Setelah menjalankan kode, kotak dialog Kutools for Excel akan muncul, masukkan kata kunci yang akan Anda temukan dan pisahkan dengan koma.
Komentar ini diminimalkan oleh moderator di situs
Hai bagaimana makro ini bisa direvisi untuk mengambil lebih banyak kata kunci? Saya memiliki sekitar 170 kata yang ingin saya temukan dan ganti
Komentar ini diminimalkan oleh moderator di situs
Hai JM,
Setelah menjalankan kode, kotak dialog Kutools for Excel akan muncul, masukkan kata kunci yang akan Anda temukan dan pisahkan dengan koma.
Komentar ini diminimalkan oleh moderator di situs
Hai! Pertama, selamat atas pekerjaan Anda: makro ini sangat berguna dan menarik! Saya ingin, bagaimanapun, Anda membantu saya dengan satu hal. Saya seorang korektor dan ingin penggantinya diberi warna hijau atau merah. Bagaimana saya bisa melakukan ini? Apakah ada baris kode yang bisa saya gunakan?
Komentar ini diminimalkan oleh moderator di situs
Hai, Fitur Temukan dan Ganti Batch dari Kutools for Word dapat menyelesaikan masalah Anda dengan sempurna, Anda dapat mencobanya.
Komentar ini diminimalkan oleh moderator di situs
Setelah menekan Ganti itu hanya pergi ke Pratinjau dan tidak melakukan apa-apa lagi.
Komentar ini diminimalkan oleh moderator di situs
Hai Ajs, Semua kata yang diperlukan telah berhasil diganti sekaligus setelah menekan tombol Ganti. Buka tab Pratinjau untuk membantu Anda mengetahui berapa banyak kata yang berhasil diganti. Setelah itu, tutup kotak dialog.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika saya mencoba mengganti koma?
Komentar ini diminimalkan oleh moderator di situs
Kode VBA tidak dapat membantu untuk mengganti koma. Anda dapat menerapkan Kutools untuk mencapai.
Komentar ini diminimalkan oleh moderator di situs
Dalam instruksi pertama (Temukan Dan Ganti Beberapa Kata Pada Saat Yang Sama Di Word Dengan Kode VBA), tidak ditemukan contoh di mana kata yang akan diganti jatuh di tengah kata (Misalnya, .com mengikuti nama situs web) . Bisakah ini dimodifikasi untuk melakukannya?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk proyeknya, Bisakah Anda membuatnya dengan cara kami juga dapat mengganti huruf dengan kata-kata. Misalnya jika saya ingin mengubah Dollar menjadi DoLLar tidak berfungsi.
Komentar ini diminimalkan oleh moderator di situs
2 co bạn, có cách nào thay thế RẤT NHIỀU cụm từ bằng RẤT NHIỀU cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m l datang ke sini? rất cám n bạn.
Komentar ini diminimalkan oleh moderator di situs
Hai Nguyễn Phúc Lâm,
Saya sarankan Anda menerapkan fitur Temukan dan Ganti Batch dari Kutools for Word (metode kedua dalam posting ini) untuk menyelesaikan masalah ini.
Di kotak dialog Temukan dan Ganti, setelah membuat dua kolom yang Anda butuhkan, Anda dapat menyimpan pengaturan saat ini sebagai skenario untuk penggunaan di masa mendatang.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Komentar ini diminimalkan oleh moderator di situs
cám n Crystal, cách này có thể áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000..) Vy có cách nào khác không bạn? Cám n bạn trả lời
Komentar ini diminimalkan oleh moderator di situs
Hai Nguyễn Phúc Lâm,
Untuk sementara tidak dapat menangani masalah ini dengan kode VBA karena agak rumit. Fitur ini akan dipertimbangkan untuk ditingkatkan pada rilis berikutnya. Maaf untuk ketidaknyamanannya.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL