Excel kullanarak Word'de birden fazla metni nasıl bulup değiştirebilirim?

Microsoft Word'de, Bul ve Değiştir özelliği, belirli bir metni hızlıca arayıp değiştirmek için verimli bir yoldur. Ancak, birden fazla farklı terimi değiştirmeniz gerektiğinde, her birini manuel olarak girmek zaman alıcı olabilir.

Bu süreci hızlandırmak için, bulmak ve değiştirmek istediğiniz metinlerin bir listesini oluşturmak için Excel'i kullanabilir ve ardından basit bir VBA koduyla bu görevi otomatikleştirebilirsiniz. Bu öğretici, size Excel ve VBA kullanarak tek bir Word belgesinde birden fazla metni bulup değiştirmeyi öğretecek. Ayrıca, bunun birden fazla belgeye nasıl genişletileceğini gösterecek ve toplu metin değiştirme için güçlü bir Kutools özelliğini tanıtacağım.

VBA kodu ile Excel'den bir Word belgesinde birden fazla metni bulma ve değiştirme

VBA kodu ile Excel'den birden fazla Word belgesinde birden fazla metni bulma ve değiştirme

Güçlü bir özellik ile birden fazla Word belgesinde birden fazla metni bulma ve değiştirme

VBA kodu ile Excel'den bir Word belgesinde birden fazla metni bulma ve değiştirme

Yalnızca bir Word dosyasında bazı metinleri bulup değiştirmek istiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir.

1. Excel çalışma sayfasında, aşağıdaki ekran görüntüsünde gösterildiği gibi bulmak ve değiştirmek istediğiniz metinleri içeren bir sütun oluşturun ve başka bir sütunda değiştirmek istediğiniz metinleri yazın. Ardından Microsoft Visual Basic for Applications penceresini açmak için Alt+F11 tuşlarına aynı anda basın.

2. Ardından, Ekle > Modül'e tıklayın, aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.

VBA kodu: Bir Word dosyasında birden fazla metni bulma ve değiştirme

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. Kodu yapıştırdıktan sonra, hala Microsoft Visual Basic for Applications penceresinde, Araçlar > Referanslar'a tıklayın, aşağıdaki ekran görüntüsüne bakın:

4. Açılan Referanslar – VBAProject iletişim kutusunda, listeden Microsoft Word 16.0 Object Library seçeneğini işaretleyin, aşağıdaki ekran görüntüsüne bakın:

5. İletişim kutusunu kapatmak için Tamam butonuna tıklayın ve şimdi, bu kodu çalıştırmak için F5 tuşuna basın, açılan Gözat penceresinde metinleri değiştirmek istediğiniz Word Dosyasını seçin, aşağıdaki ekran görüntüsüne bakın:

6. Ardından, Tamam'a tıklayın, aşağıdaki iletişim kutusunda, kullanmak istediğiniz orijinal metin ve yeni metin hücrelerini ayrı ayrı seçmek için Ctrl tuşuna basın, aşağıdaki ekran görüntüsüne bakın:

7. Ve ardından, Tamam butonuna tıklayın, artık metinler belirttiğiniz belgede bulunmuş ve yeni metinlerle değiştirilmiştir, dosya da açılmaktadır, değişiklikleri kaydetmek için dosyayı kaydetmelisiniz.

VBA kodu ile Excel'den birden fazla Word belgesinde birden fazla metni bulma ve değiştirme

Ayrıca, size birden fazla Word belgesinde birden fazla metni bulup değiştirmenize yardımcı olacak bir VBA kodu oluşturdum. Aşağıdaki adımları izleyin:

1. Aşağıdaki ekran görüntüsünde gösterildiği gibi, değiştirmek ve değiştirecek iki sütun içeren Excel dosyasını açın ve ardından Alt+F11 tuşlarına aynı anda basın Microsoft Visual Basic for Applications penceresini açmak için Microsoft Visual Basic for Applications.

2. Ardından, Ekle > Modül'e tıklayın, aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.

VBA kodu: Birden fazla Word dosyasında birden fazla metni bulma ve değiştirme

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. Hala Microsoft Visual Basic for Applications penceresinde, Araçlar > Referanslar'a tıklayın, Referanslar – VBAProject iletişim kutusunda, listeden Microsoft Word 16.0 Object Library ve Microsoft Scripting Runtime seçeneklerini seçin, aşağıdaki ekran görüntüsüne bakın:

4. İki seçeneği işaretledikten sonra ve iletişim kutusunu kapatmak için Tamam'a tıklayın, ardından kodu çalıştırmak için F5 tuşuna devam edin, açılan Gözat penceresinde, bul ve değiştir işlemini gerçekleştirmek istediğiniz Word belgelerini içeren bir klasör seçin, aşağıdaki ekran görüntüsüne bakın:

5. Tamam butonuna tıklayın, açılan iletişim kutusunda, kullanmak istediğiniz orijinal metin ve yeni metin sütunlarını ayrı ayrı seçmek için Ctrl tuşuna basın, aşağıdaki ekran görüntüsüne bakın:

6. Son olarak, Tamam'a tıklayın ve orijinal metinler bu dosyalarda yeni olanlarla değiştirilir, tamamlandığında aşağıdaki ekran görüntüsünde gösterildiği gibi bir iletişim kutusu açılacaktır:

7. İletişim kutusunu kapatmak için Tamam'a tıklayın. Ve dönüştürülen sonuçları kontrol etmek için dosyalara gidebilirsiniz.

Güçlü bir özellik ile birden fazla Word belgesinde birden fazla metni bulma ve değiştirme

Bu bölümde, Excel yerine Word'un kendisini kullanarak birden fazla Word belgesinde toplu olarak metin bulup değiştirmeyi açıklayacağım. Güçlü Kutools for Word kullanarak, ana gövdede, üst bilgilerde, alt bilgilerde, yorumlarda ve daha fazlasında belirli metinleri arayabilir ve bunları yeni metinlerle değiştirebilir, ayrıca gerekirse sonuçları vurgulayabilirsiniz.

1. Bir Word dosyasını açın ve ardından Kutools Plus > Toplu Bul ve Değiştir'e tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Açılan Toplu Bul ve Değiştir iletişim kutusunda, lütfen aşağıdaki işlemleri yapın:

• Metinleri bulup değiştirmek istediğiniz Word dosyalarını eklemek için Ekle butonuna tıklayın;
• Sol bölmede, üst şeritten Satır Ekle'ye tıklayın;
• Eklenen alana, bulmak ve değiştirmek istediğiniz orijinal metni ve yeni metni ayrı ayrı Bul ve Değiştir sütunlarına girin. Ayrıca, değiştirilen metinleri vurgulamak için bir renk belirleyebilirsiniz.

3. Arama kriterlerini oluşturduktan sonra, bul ve değiştir sonuçlarını görüntülemek için Önizleme Sonucu sekmesine gitmek üzere Değiştir butonuna tıklayın. Ekran görüntüsüne bakın:

4. Ardından, Kapat butonuna tıklayın ve bu senaryoyu kaydetmek isteyip istemediğinizi hatırlatmak için bir uyarı kutusu açılır, Kaydetmek için Evet'e tıklayın veya yok saymak için Hayır'a tıklayın, ekran görüntüsüne bakın:

AI-Geliştirilmiş Kutools for Word ile Daha Az Zamanda Daha Fazla İş Yapın

Kutools for Word sadece bir araç seti değil - üretkenliğinizi artırmak için tasarlanmış akıllı bir çözüm. Yapay zeka destekli yetenekler ve en temel özelliklerle, Kutools size daha az zamanda daha fazla iş yapma imkanı sunar:

• İçeriği anında özetleyin, yeniden yazın, oluşturun ve çevirin.
• Yazarken gramer, noktalama ve stil önerileriyle metni gerçek zamanlı olarak düzeltin.
• Düzeni, stili ve yapıyı bozmadan içeriği yeniden ifade edin ve çevirin.
• İçeriğinizi 40'tan fazla dile kolayca çevirerek küresel olarak erişiminizi genişletin.
• Geçerli belge içeriğine dayalı anında yardım ve akıllı içgörüler alın.
• Bir görevi tamamlama konusunda soru sorun - bölüm sonlarını kaldırma gibi - ve yapay zeka size rehberlik edecek ya da sizin için yapacaktır.
• Hassas veya gizli bilgileri birkaç saniye içinde düzenleyerek tamamen gizliliği sağlayın.
• Tüm araçlar Word içinde sorunsuz çalışır ve her zaman ulaşılabilir durumdadır.

• Belgeleri oluşturun, iyileştirin, çevirin, özetleyin ve güvenli hale getirin.
• Yazarken gerçek zamanlı olarak grameri, netliği ve tonu geliştirin.
• Hiçbir düzen veya biçimlendirme değişikliği olmadan içeriği yeniden ifade edin ve çevirin.
• Bir görevi tamamlama konusunda soru sorun - bölüm sonlarını kaldırma gibi - ve yapay zeka size rehberlik edecek ya da sizin için yapacaktır.
• Tüm araçlar Word içinde sorunsuz çalışır ve her zaman ulaşılabilir durumdadır.

Kutools for Word Hakkında Daha Fazla Bilgi Edinin Şimdi İndirin