İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
x

or

Birden fazla dosyada kelime aramak ve değiştirmek nasıl?

Aynı içeriği (Üstbilgi, altbilgi, bazı özel kelimeler veya sayı gibi) içeren birkaç düzine kelime dosyanız varsa ve aynı içeriği Word'deki bu belgeler arasında değiştirmeniz gerekir. Hızlı bir şekilde halletmeniz nasıl daha kolay olurdu? Kesinlikle, aynı içeriği değiştirmek için bu dosyaları birer birere açabilirsiniz, ancak zaman alıcı ve zahmetli olacaktır. Bu eğitimde aynı içeriği aynı anda Word'deki birden fazla belge içinde değiştirmek için zor bir yol göstereceğiz.

VBA koduyla aynı anda birden fazla kelime belgesindeki metinleri bulun ve değiştirin


Birden çok belgeyi kolayca birleştirin / birleştirin:

The,en Belgeleri Birleştir yarar Kutools for Word Birden çok belgeyi hızlıca bir araya getirmenize yardımcı olabilir. Sadece yapmanız gerekenler:

  • Bir araya getireceğiniz belgeleri seçin;
  • Her birleştirilmiş belge arasındaki arayı belirtin;
  • Birleştirmeye başla. Ekran görüntüsüne bakın:

Kutools for Word: 100 günlerinde hiçbir sınırlama olmadan denemek için ücretsiz 30 kullanışlı Word eklentileri ile. Şimdi indirin ve ücretsiz deneme!

Kutools for Word: 100 Yeni Gelişmiş Özellikler Ekle 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Etkinleştirme Sekmeli Düzenleme ve Ofiste Tarama, Sadece Chrome, Firefox, IE 8 / 9 / 10 gibi.
Classic Menu for Office: Eski Ofis Bakışını Getirin 2003 Geri 2007, 2010, 2013, 2016 ve 2019.

VBA koduyla aynı anda birden fazla kelime belgesindeki metinleri bulun ve değiştirin

1. Basın diğer + F11 açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modülsonra aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA Kodu: Aynı içeriğin birden fazla belgede aynı anda aranması ve değiştirilmesi

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. Tuşuna basın. F5 Kodu çalıştırmak için tuşuna basın.

4. Açılışta Araştır pencere, bulacağınız belgeleri bulup seçin ve içindeki metni değiştirin. OK buton. Ekran görüntüsüne bakın:

5. İlk olarak Kutools for Word iletişim kutusunda, belgeler arasında bulacağınız metni girin. Ne bul kutusunu işaretleyin ve ardından OK düğmesine basın.

6. Saniyede Kutools for Word iletişim kutusuna, değiştireceğiniz metni girin ve OK düğmesine basın.

8. Tıklayın OK sonraki tuş Microsoft Word bulmak ve değiştirmek için iletişim kutusu.

Bu durumda, seçilen belgelerde "Word" kelimesi aynı anda "Excel" ile değiştirilir.


Office Tab - Word'de çoklu Belgelerin Tarama, Düzenleme ve Yönetilmesi:

Office Sekmesi, Google Chrome, Internet Explorer'ın yeni sürümleri ve Firefox gibi Microsoft tarayıcıları gibi web tarayıcılarında görüldüğü sekmeli arayüzü getirir. O irade zaman tasarrufu sağlayan bir araç ol ve işinde geri dönüşü olmayan. Aşağıdaki demo bakın:

Office Tab'ı ücretsiz deneme için tıklayın!




Kutools for Word

100, 2003, 2007, 2010, 2013 ve 2016 için 2019 Gelişmiş İşlevlerinden daha fazlası

atış-kutools-700-225-KTE

Diğer Özellikler | Bedava indir | Yüzlerce işlev için yalnızca $ 39.00

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.
    Tiago · 27 days ago
    Is it possible to replace in the headers of the word doc?
    • To post as a guest, your comment is unpublished.
      crystal · 23 days ago
      Hi Tiago,
      Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.

      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"
      If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
      ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      End If
      ActiveDocument.Save
      ActiveWindow.Close
      Next
      Application.ScreenUpdating = True
      End With
      MsgBox "Operation end, please view", vbInformation
      End Sub
  • To post as a guest, your comment is unpublished.
    dsadasd · 27 days ago
    Is that possible to replace in the header of the word doc?
  • To post as a guest, your comment is unpublished.
    martinadam · 3 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    nathalie · 5 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
    • To post as a guest, your comment is unpublished.
      crystal · 23 days ago
      Hi,
      Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.

      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"
      If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
      ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      End If
      ActiveDocument.Save
      ActiveWindow.Close
      Next
      Application.ScreenUpdating = True
      End With
      MsgBox "Operation end, please view", vbInformation
      End Sub
  • To post as a guest, your comment is unpublished.
    blds · 1 years ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(