Excel kullanarak Word’de birden fazla metni nasıl Bul ve Değiştirirsiniz?
YazarXiaoyang•Değiştirme Tarihi
Microsoft Word içinde, Bul ve Değiştir özelliği belirli metinleri hızlıca aramak ve 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 kolaylaştırmak için, değiştirilecek metinlerin bir listesini Excel’de oluşturabilir ve ardından basit bir VBA koduyla bu görevi otomatikleştirebilirsiniz. Bu eğitimde, Excel ve VBA kullanarak tek bir Word belgesinde birden fazla metni nasıl Bul ve Değiştir ile değiştirebileceğinizi göstereceğiz. Ayrıca bu işlemi birden fazla belgeye nasıl genişletebileceğinizi ve toplu metin değiştirme için Kutools’un güçlü bir özelliğini tanıtacağız.
VBA koduyla Excel’den bir Word belgesinde birden fazla metni Bul ve Değiştir
Yalnızca bir Word dosyasındaki belirli metinleri Bul ve Değiştir işleviyle değiştirmek istiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir.
1. Excel çalışma sayfasında, değiştirmek istediğiniz metinleri içeren bir sütun ve aşağıda ekran görüntüsünde gösterildiği gibi yerine geçecek metinleri içeren başka bir sütun oluşturun. Ardından Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ardından, Ekle > Modül seçeneğine tıklayıp aşağıdaki VBA kodunu pencereye kopyalayın ve yapıştırın.
VBA kodu: Bir Word dosyasında birden fazla metni Bul ve Değiştir
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 hâlâ Microsoft Visual Basic for Applications penceresindeyken, Araçlar > Başvurular seçeneğine tıklayın; ekran görüntüsüne bakın:
4. Açılan Başvurular – VBAProject iletişim kutusunda, listeden Microsoft Word 16,0 Nesne Kitaplığı seçeneğini işaretleyin; ekran görüntüsüne bakın:
5. İletişim kutusunu kapatmak için Tamam düğmesine tıklayın ve ardından bu kodu çalıştırmak için F5 tuşuna basın. Açılan Gözat penceresinde metinlerin değiştirileceği Word dosyasını seçin; ekran görüntüsüne bakın:
6. Ardından Tamam düğmesine tıklayın. Sonraki iletişim kutusunda, kullanmak istediğiniz Orijinal Metin ve Yeni Metin hücrelerini ayrı ayrı seçmek için Ctrl tuşuna basın; ekran görüntüsüne bakın:
7. Ardından Tamam düğmesine tıklayın. Belirttiğiniz belgede metinler bulunup Yeni Metin ile değiştirildi ve dosya açıldı. Değişiklikleri korumak için dosyayı kaydetmeyi unutmayın!
VBA koduyla Excel’den birden fazla Word belgesinde birden fazla metni Bul ve Değiştir
Birden fazla Word belgesinde birden fazla metni Bul ve Değiştir işlevini gerçekleştirmenize yardımcı olacak bir VBA kodu da hazırladım. Aşağıdaki adımları izleyin:
1. Aşağıdaki ekran görüntüsünde gösterildiği gibi, değiştirilecek ve yerine geçecek değerleri içeren iki sütunun bulunduğu Excel dosyasını açın. Ardından Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ardından Ekle > Modül seçeneğine tıklayıp aşağıdaki VBA kodunu pencereye kopyalayıp yapıştırın.
VBA kodu: Birden fazla Word dosyasında birden fazla metni Bul ve Değiştir
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. Hâlâ Microsoft Visual Basic for Applications penceresindeyken, Araçlar > Başvurular seçeneğine tıklayın. Başvurular – VBAProject iletişim kutusunda listeden Microsoft Word 16,0 Nesne Kitaplığı ve Microsoft Scripting Runtime seçeneklerini işaretleyin; ekran görüntüsüne bakın:
4. İki seçeneği işaretledikten sonra, iletişim kutusunu kapatmak için Tamam düğmesine tıklayın. Ardından bu kodu çalıştırmak için F5 tuşuna basmaya devam edin. Açılan Gözat penceresinde, Bul ve Değiştir işlemi uygulamak istediğiniz Word belgelerinin bulunduğu klasörü seçin; ekran görüntüsüne bakın:
5. Tamam düğmesine 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; ekran görüntüsüne bakın:
6. Son olarak, Tamam düğmesine tıklayın. Böylece bu dosyalardaki Orijinal Metin, yeni metinlerle değiştirilmiş olacak. İşlem tamamlandığında, aşağıdaki ekran görüntüsünde gösterildiği gibi bir iletişim kutusu açılacaktır:
7. Dönüştürülmüş sonuçları kontrol etmek için dosyalara göz atabilirsiniz. İletişim kutusunu kapatmak için Tamam düğmesine tıklayın.
Güçlü bir özellik kullanarak birden fazla Word belgesinde birden fazla metni Bul ve Değiştir
Bu bölümde, Excel yerine Word’ün kendisini kullanarak birden fazla Word belgesinde metni Toplu Bul ve Değiştir işlemini nasıl yapabileceğinizi göstereceğim. Güçlü Kutools for Word özelliği sayesinde ana gövde, başlıklar, altbilgiler, yorumlar ve daha fazlasında belirli metinleri verimli bir şekilde arayabilir, yeni metinlerle değiştirebilir ve gerektiğinde sonuçları vurgulayabilirsiniz.
Kutools for Word
Kutools for Word, kodlama veya karmaşık kurulum gerektirmeden, Microsoft Word’e doğrudan entegre olmuş pratik araçlarla günlük belge işlemlerinizi daha hızlı halletmenizi sağlar.
Yapay zekâ ile yazma, düzeltme, çeviri ve özetleme
1. Bir Word dosyası açın ve ardından KUTOOLS PLUS > Toplu Bul ve Değiştir seçeneğine tıklayın; ekran görüntüsüne bakın:
2. Açılan Toplu Bul ve Değiştir iletişim kutusunda şu işlemleri yapın:
Metinleri Bul ve Değiştir istediğiniz Word dosyalarını eklemek için Ekledüğmesine tıklayın;
Sol bölmede, üst kısımdaki Şerit menüsünden Satır Ekleseçeneğine tıklayın;
Eklenen alana, Bul ve Değiştir sütunlarına sırasıyla aradığınız Orijinal Metin ile değiştirmek istediğiniz Yeni Metni girin. Ayrıca, değiştirilen metinleri vurgulamak için ihtiyacınıza göre bir renk de belirleyebilirsiniz.
3. Arama kriterlerinizi oluşturduktan sonra, Bul ve Değiştir sonuçlarını görüntülemek üzere Değiştir düğmesine tıklayıp Sonuç Önizleme sekmesine gidin. Ekran görüntüsüne bakın:
4. Ardından Kapat düğmesine tıklayın. Kaynak senaryoyu kaydetmek isteyip istemediğinizi hatırlatan bir uyarı kutusu açılacak; kaydetmek için Evet’e, yoksaymak için ise Hayır’a tıklayın; ekran görüntüsüne bakın:
İpuçları: Bu özellik ayrıca aşağıdaki işlemleri gerçekleştirmenize de yardımcı olabilir:
Bul ve Değiştir birden fazla Word belgesinde özel karakterler;
Bul ve Değiştir birden fazla Word belgesinde belirli biçimlendirmeye sahip çoklu dizgeler;
Bul ve Değiştir, birden fazla txt/htm/HTML dosyasında çoklu dizgeleri aynı anda işler.
Yapay Zekâ Destekli Kutools for Word ile Daha Az Zamanda Daha Fazlasını Yapın
Kutools for Word, sadece bir araç seti değil; üretkenliğinizi artırmanız için tasarlanmış akıllı bir çözümdür. Yapay zekâ destekli yetenekleri ve temel özellikleriyle Kutools, daha az zamanda daha fazlasını başarmanıza yardımcı olur:
İçeriği anında özetleyin, yeniden yazın, oluşturun ve çevirin.
Yazarken dil bilgisi, noktalama ve üslup önerileriyle metninizi gerçek zamanlı olarak gözden geçirin.
İçeriği, düzenini, stilini ve yapısını bozmadan yeniden ifade edin ve çevirin.
İçeriğinizi 40’tan fazla dile kolayca çevirerek küresel erişiminizi genişletin.
Geçerli belge içeriğinize dayanarak anında yardım alın ve akıllı içgörüler elde edin.
Bir görevi – örneğin Bölüm Sonu kaldırmayı – nasıl tamamlayacağınızı sorun, yapay zeka size rehberlik eder veya bunu sizin için halleder.
Hassas veya gizli bilgileri saniyeler içinde sansürleyerek tam gizlilik sağlayın.
Tüm araçlar Word’ün içinde sorunsuzca çalışır ve her zaman kolay erişiminizdedir.
Belgelerinizi zahmetsizce oluşturun, iyileştirin, çevirin, özetleyin ve güvence altına alın.
Yazarken dil bilgisini, açıklığı ve tonu gerçek zamanlı olarak geliştirin.
İçeriği, düzen veya biçimlendirmede hiçbir değişiklik yapmadan yeniden ifade edin ve çevirin.
Bir görevi nasıl tamamlayacağınızı sorun – örneğin “Bölüm Sonu Kaldırma” gibi – yapay zeka size rehberlik eder veya bunu sizin yerinize hemen gerçekleştirir.
Tüm araçlar Word’ün içinde sorunsuzca çalışır ve her zaman elinizin altında hazır bulunur.
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ diğer dilleri destekler!
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşamadığınız bir verimlilik deneyimi yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
Tek yükleyici, tek lisans— dakikalar içinde kurulum (MSI uyumlu)
Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
En iyi fiyat performans— tek tek eklenti satın alımına göre tasarruf edin
