Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mencari dan menggantikan pelbagai perkataan pada masa yang sama dalam dokumen Word?

Word menyediakan fungsi Cari dan Ganti untuk mencari semua contoh kata atau frasa dan menggantikannya dengan perkataan baru pada masa yang sama. Tetapi jika anda ingin mencari dan menggantikan kata-kata yang berbeza pada masa yang sama, fungsi terbina dalam ini tidak dapat membantu. Dalam artikel ini, kita bercakap mengenai kaedah VBA untuk mencari dan menggantikan pelbagai perkataan yang berlainan pada masa yang sama dalam dokumen Word.

Cari dan gantikan pelbagai perkataan pada masa yang sama dalam Word dengan kod VBA


Cari dan gantikan pelbagai perkataan pada masa yang sama dalam Word dengan kod VBA

Sila lakukan seperti berikut untuk mencari dan menggantikan perkataan berbilang pada masa yang sama dalam dokumen Word.

1. Buka dokumen Word yang anda mahu cari dan ganti pelbagai perkataan pada masa yang sama, kemudian tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin di bawah kod VBA ke dalam tetingkap Modul.

Kod VBA: Cari dan gantikan pelbagai perkataan pada masa yang sama dalam 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 butang F5 kunci untuk menjalankan kod.

4. Yang pertama Kutools untuk Word kotak dialog, masukkan pelbagai perkataan yang akan anda temukan dan ganti ke dalam kotak teks, dan sisihkannya dengan koma, kemudian klik OK butang. Lihat tangkapan skrin:

5. Pada yang kedua Kutools untuk Word kotak dialog, masukkan kata-kata baru yang akan digantikan dengan (kata-kata ini juga perlu dipisahkan oleh koma), dan kemudian klik OK butang.

Catatan: Dalam kes ini, semua "TEC" dalam dokumen ini akan digantikan dengan "Baru", dan "KTO" dan "KTW" akan digantikan dengan "Ujian" dan "Selesaikan". Sila tukar mereka dengan keperluan anda.



Alat produktiviti Word yang disyorkan

Kutools For Word - Lebih Daripada Ciri-ciri Lanjutan 100 Untuk Microsoft Word, Simpan 50% Time anda

  • Operasi yang rumit dan berulang boleh dilakukan pemprosesan satu kali dalam beberapa saat.
  • Sisipkan beberapa imej merentas folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan menggabungkan beberapa fail Word merentas folder ke dalam satu dengan pesanan yang anda inginkan.
  • Pisah dokumen semasa ke dalam dokumen berasingan mengikut tajuk 1, pecahan bahagian atau kriteria lain.
  • Tukar fail antara Doc dan Docx, Docx dan PDF, koleksi alat untuk penukaran dan pilihan biasa, dan sebagainya...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jaka1 · 1 months ago
    Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?