Word’de Birden Fazla Dosyada Toplu Kelime ve İsim Değiştirme

Onlarca farklı Word belgesinde aynı kelimeyi veya ismi değiştirmeniz gerektiği oldu mu? Örneğin, hazırladığınız 100 farklı evrakta “Atatürk Ortaokulu” yazısını “SBD Ortaokulu” yapmak veya eski okul müdürünün adını yenisiyle değiştirmek istiyorsunuz. Dosyaları tek tek açıp “Bul ve Değiştir” yapmak saatlerinizi alabilir.

Hiç merak etmeyin! Ekstra bir program kurmadan, Word’ün kendi içindeki küçük bir özellikle (Makro) saniyeler içinde istediğiniz kadar dosyadaki metinleri topluca değiştirebilirsiniz. Kodlama bilmenize hiç gerek yok; aşağıdaki adımları sırasıyla uygulamanız yeterli.

1. Adım: Dosyalarınızı Tek Bir Klasörde Toplayın
Öncelikle işlem yapmak istediğiniz tüm Word dosyalarını (Aşağıda ek olarak vereceğim yaklaşık 100 adet evrakınızı) yerel disk D alanında yeni bir klasör açıp içine atın.( masaüstünde de yapablirsiniz ben d de yaptım.) Klasörün adını İngilizce karakterlerle ve boşluk bırakmadan yazmaya özen gösterin. (Örnek: gunluk gibi).

2. Adım: Word’de Gizli “Geliştirici” Sekmesini Açın
Bu işlemi yapmak için Word’de ufak bir pencere açmamız gerekiyor.

Boş bir Word belgesi açın.
Sol üstten Dosya > Seçenekler menüsüne tıklayın.
Açılan pencerenin sol tarafından Şeridi Özelleştir’e tıklayın.
Sağ taraftaki listeden Geliştirici (Developer) kutucuğunu bulup işaretleyin ve Tamam’a basın.(Artık Word’ün üst menüsünde “Geliştirici” adında yeni bir sekme belirdiğini göreceksiniz.)

3. Adım: Sihirli Kodumuzu Ekliyoruz
Şimdi Word’e “şu klasördeki dosyaları aç ve şu kelimeleri değiştir” diyeceğimiz kodu ekleme zamanı.

Üst menüden az önce açtığımız Geliştirici sekmesine tıklayın.
En soldaki Visual Basic butonuna basın. (Karşınıza yeni bir ekran açılacak, korkmayın!)
Açılan bu yeni ekranın üst menüsünden Insert > Module seçeneklerine tıklayın.
Karşınıza çıkan bembeyaz sayfaya aşağıdaki kodu kopyalayıp yapıştırın:

Sub TopluIsimDegistir()

Dim DosyaYolu As String

Dim DosyaAdi As String

Dim Belge As Document

‘ DİKKAT: Aşağıdaki tırnak içindeki klasör yolunu kendi klasörünüze göre değiştirin.

‘ Klasör yolunun sonunda mutlaka ters eğik çizgi () olmalıdır.

DosyaYolu = “D:Yeni klasörgunlukler”

DosyaAdi = Dir(DosyaYolu & “*.doc*”)

Application.ScreenUpdating = False

Do While DosyaAdi “”

Set Belge = Documents.Open(FileName:=DosyaYolu & DosyaAdi)

‘ Okul adını değiştirme

With Belge.Content.Find

.Text = “KARACAŞAR ORTAOKULU”

.Replacement.Text = “SİZİN OKULUN ADINI GİRİN ORTAOKULU”

.Wrap = wdFindContinue

.Execute Replace:=wdReplaceAll

End With

‘ Öğretmen adını değiştirme

With Belge.Content.Find

.Text = “Ders Öğretmeni Muammer ASLAN”

.Replacement.Text = “Ders Öğretmeni Sizin adınız soyadınız”

.Wrap = wdFindContinue

.Execute Replace:=wdReplaceAll

End With

‘ Müdür adını değiştirme

With Belge.Content.Find

.Text = ” Okul Müdürü Anıl Kadir ERANIL”

.Replacement.Text = “Okul Müdürü sizin müdürün adı soyadı buraya”

.Wrap = wdFindContinue

.Execute Replace:=wdReplaceAll

End With

Belge.Close SaveChanges:=wdSaveChanges

DosyaAdi = Dir

Loop

Application.ScreenUpdating = True

MsgBox “Tüm dosyalardaki isimler başarıyla değiştirildi!”, vbInformation

End Sub
4. Adım: Kodu Kendinize Göre Düzenleyin (Çok Önemli!)
Kodu yapıştırdınız, harika. Şimdi sadece iki yeri kendi bilgisayarınıza göre değiştirmelisiniz:

Dosya Yolunu Belirtin: Kodun içindeki DosyaYolu = “D:Yeni klasörgunlukler” kısmını bulun. Hazırladığınız klasörün adresini bilgisayarınızdan kopyalayıp buraya yapıştırın. (Uyarı: Adresin en sonuna mutlaka ters eğik çizgi işaretini koymayı unutmayın!)
Değişecek Kelimeleri Yazın: Kodun içindeki .Text (Eski kelime) ve .Replacement.Text (Yeni kelime) kısımlarını kendi değiştirmek istediğiniz isimlere göre düzenleyin.

5. Adım: Çalıştırın ve Arkanıza Yaslanın!
Her şey hazır! Ekranın üst kısmındaki yeşil renkli “Play” (Çalıştır) butonuna basın veya klavyenizden F5 tuşuna basın.

Ekranınız birkaç saniyeliğine titreyebilir, Word arka planda dosyalarınızı tek tek açıp kelimeleri değiştirecek ve kaydedip kapatacaktır. İşlem bittiğinde ekrana “X adet dosya tarandı ve isimler başarıyla değiştirildi!” uyarısı gelecektir.

İşte bu kadar kolay! Artık evrak işlerinde saatlerinizi harcamanıza gerek kalmadı. Bu yöntemi faydalı bulduysanız, meslektaşlarınızla paylaşmayı unutmayın!
294