Birden Çok Word Belgesinde İçeriği Bulma ve Değiştirme

Bugünün makalesinde, birden çok Word belgesindeki içeriği bulma ve değiştirme yöntemi hakkında sizi bilgilendirmekten heyecan duyuyoruz.

Genel olarak, çoğu Word kullanıcısı yazılımdaki "Bul ve Değiştir" özelliğine oldukça aşinadır. Bu özellik, tüm belge üzerinde toplu işlem yapmamıza yardımcı olarak bize çok zaman kazandırır. Peki, bu seçeneği birden fazla belge için, örneğin belirli bir klasörün altındaki tüm dosyalar için kullanmayı hiç düşündünüz mü?

Bir grup dosyada her zaman içerik arama ve değiştirme ihtiyacı olduğundan, işlevin gerçekleştirilmesi güzel olurdu. Bizim yolumuz da makro kullanmak. Daha fazla ayrıntı öğrenmek için lütfen okumaya devam edin.

Makro Yükleme ve Çalıştırma Adımları

1. Öncelikle tüm dosyaları tek bir klasöre koyun ve Word'ü açın.
2. Ardından "Geliştirici" sekmesine tıklayın.
3. Sonra "Visual Basic"e tıklayın. Veya VBA editörünü tetiklemek için "Alt + F11" tuşlarına basın.
4. Ardından “Normal” projesine tıklayın.
5. Ardından “Ekle” sekmesine tıklayın ve ardından “Modül” seçeneğini seçin.
6. Artık başarıyla yeni bir modül eklediniz. Kodlama alanını açmak için üzerine çift tıklayın.
7. Aşağıdaki kodları buraya yapıştırın:

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Son olarak, "Çalıştır" ı tıklayın.
9. Şimdi açılan bir giriş kutusu olacak. Belgeleri sakladığınız klasör yolunu girin.
10. Sonra "Tamam" ı tıklayın ve ikinci kutu var. Bulmak istediğiniz metinleri girin.
11. Değiştirilen metinleri girdiğiniz üçüncü giriş kutusunu açmak için "Tamam"a tıklamaya devam edin ve oradaki "Tamam" düğmesine tıklayın. Makro, tüm içeriği otomatik olarak değiştirecek ve değişikliği kaydedecektir.

Gördüğünüz gibi, bu makro size klasör yolu, bulma ve değiştirme metinlerini girebileceğiniz 3 giriş kutusu sağlar. Böylece bu makroya bir düğme atayabilir ve yeniden kullanmak üzere “Hızlı Erişim Araç Çubuğuna” ekleyebilirsiniz.

Bir makroya nasıl buton atanacağı ile ilgili olarak şu makaleyi okuyabilirsiniz: Word'ünüzdeki Makro ve VBA ile Yapıştırılan Metinlerin Biçimlendirmesini Kaldırma

Değerli Verileri Koruyun

Word'de hatalar ve sorunlar oluşabilir. Sonuç olarak, değerli belgeler zarar görebilir. ile karşılaşırken doktor hasarı, verileri kurtarmak için profesyonel bir kurtarma aracına sahip olmanız önerilir.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls hasarı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com