Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana mencari dan mengganti beberapa file dalam kata?

Jika Anda memiliki beberapa lusin file kata yang berisi konten yang sama (seperti Header, footer, beberapa kata atau nomor khusus), dan Anda perlu mengganti konten yang sama di dokumen-dokumen Word. Bagaimana akan lebih mudah bagi Anda untuk menyelesaikannya dengan cepat? Tentu, Anda bisa membuka file tersebut satu per satu untuk mengganti konten yang sama, tapi akan memakan waktu dan merepotkan. Tutorial ini akan menunjukkan cara sulit untuk mengganti konten yang sama dalam beberapa dokumen di Word sekaligus.

Temukan dan ganti teks di beberapa dokumen kata pada saat yang sama dengan kode VBA


Gabungkan / gabungkan beberapa dokumen menjadi satu dengan mudah:

Itu Menggabungkan dokumen utilitas dari Kutools for Word dapat membantu Anda menggabungkan banyak dokumen menjadi satu dengan cepat. Anda hanya perlu:

  • Pilih dokumen yang akan Anda gabungkan menjadi satu;
  • Tentukan jeda di antara masing-masing dokumen gabungan;
  • Mulai menggabungkan. Lihat screenshot:

Kutools for Word: dengan lebih dari 100 handy Word add-ins, gratis untuk dicoba tanpa batasan dalam 30 hari. Download dan uji coba gratis Sekarang!

Kutools for Word: Tambahkan 100 New Advanced Features ke Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Aktifkan Tabed Editing dan Browsing di Office, Sama seperti Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Bawa Tampilan Lama Kantor 2003 Kembali ke Office 2007, 2010, 2013, 2016, dan 2019.

Temukan dan ganti teks di beberapa dokumen kata pada saat yang sama dengan kode VBA

1. tekan lain + F11 untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode VBA berikut ke dalam jendela Modul.

Kode VBA: Menelusuri dan mengganti konten yang sama di beberapa dokumen sekaligus

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. tekan F5 kunci untuk menjalankan kode

4. Di pembukaan melihat-lihat jendela, temukan dan pilih dokumen yang akan Anda temukan dan ganti teks di dalamnya, lalu klik OK tombol. Lihat tangkapan layar

5. Pertama Kutools for Word kotak dialog, masukkan teks yang akan Anda temukan di seluruh dokumen ke dalam Temukan apa kotak, dan kemudian klik OK tombol.

6. Di kedua Kutools for Word kotak dialog, masukkan teks yang akan Anda ganti dengan, dan klik OK tombol.

8. Klik OK tombol di depan Microsoft Word kotak dialog untuk menyelesaikan menemukan dan mengganti.

Dalam hal ini, semua kata "Word" dalam dokumen yang dipilih diganti dengan "Excel" pada saat yang bersamaan.


Office Tab - Tabbed Browsing, Editing, dan Mengelola banyak Dokumen di Word:

Tab Office menghadirkan antarmuka tab seperti yang terlihat di browser web seperti Google Chrome, Internet Explorer versi baru dan Firefox ke Microsoft Word. Saya t akan menjadi alat yang menghemat waktu dan tidak dapat dilepas dalam pekerjaan Anda. Lihat demo di bawah ini:

Klik untuk percobaan gratis Tab Office!




Kutools for Word

Lebih dari 100 Fungsi Tingkat Lanjut untuk Word 2003, 2007, 2010, 2013, 2016, dan 2019

shot-kutools-700-225-kte

Fitur Lebih | Free download | Hanya $ 39.00 untuk ratusan fungsi

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.
    3Cees · 1 years ago
    Thank you so much. You win the internet!

    This has saved me amending 360 documents.

    You're my favourite :)
  • To post as a guest, your comment is unpublished.
    WAK · 1 years ago
    worked like a charm for me. Thanks a billion!
  • To post as a guest, your comment is unpublished.
    CC · 1 years ago
    Merlin 4099, I am having trouble with the following portion of your code. I am new to VBA.:

    ' --------------- --------------- --------------- ----------
    ' Beginning Header Updates
    ' --------------- --------------- --------------- ----------
    Windows(GetStr(j)).Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.Cle arFormatting

    If ActiveWindow.View.SplitSpecialwdPane None Then
    ActiveWindow.Panes(2).Close
    End If

    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    ActivePane.View .Type = wdOutlineView Then

    Can anyone help me? I think I fixed most
    • To post as a guest, your comment is unpublished.
      blue_crayon · 1 years ago
      Was figuring out this issue myself, today.

      First, make sure you fix the line:

      Selection.Find.Replacement.Cle arFormatting

      To be:

      Selection.Find.Replacement.ClearFormatting

      Then, change the following line:

      If ActiveWindow.View.SplitSpecialwdPane None Then

      To look like this:

      If ActiveWindow.View.SplitSpecial <> wdPaneNone Then


      The code should look like this in the end:

      Windows(GetStr(j)).Activate
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting

      If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
      ActiveWindow.Panes(2).Close
      End If

      If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
      ActivePane.View.Type = wdOutlineView Then
      ActiveWindow.ActivePane.View.Type = wdPrintView
      End If
  • To post as a guest, your comment is unpublished.
    CC · 1 years ago
    Merlin4099, I am having trouble with the following portion of your code:

    ' --------------- --------------- --------------- ----------
    ' Beginning Header Updates
    ' --------------- --------------- --------------- ----------
    Windows(GetStr(j)).Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.Cle arFormatting

    If ActiveWindow.View.SplitSpecialwdPane None Then
    ActiveWindow.Panes(2).Close
    End If

    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    ActivePane.View .Type = wdOutlineView Then

    Can you or anyone else help me?

    Thanks!
  • To post as a guest, your comment is unpublished.
    DaveW · 1 years ago
    Thanks so much for posting this, absolute lifesaver!

    I notice that there is a line "MatchWildcards = False", which implies that it's possible to use wildcards in the search text - is that possible and, if so, what's the protocol?

    Thanks again!