Word'de Çoklu Kelime Arama Vba Makrosu Kapak

Word’de Çoklu-Tek Seferde Birden Fazla Kelime Arama VBA Makrosu

Word’de Ctrl+f ile tek kelime araması yapmak kolay. Ancak tek seferde – aynı anda – birden fazla kelime ya da kelime öbeği araması (Word – multiple words search) yapmak için bir makroya ihtiyaç var.

(Bu makro ile arama-bulma işlemi yapılabilir ancak bulunanları değiştirme yapılamaz.) 


Örnek ve Makro kodu



Öncelikle rastgele Türkçe metin üretelim. (Buradaki yazıma bakabilirsiniz.)

Bir Word dosyasına bu rastgele metni kayıt edelim.

Kayıt ederken .docm formatını (Word Makro Etkinleştirilmiş Belgesi) seçmemiz lazım.

Word Makro Etkinleştirilmiş Belgesi Docm


Daha sonra Alt+F11 tuşları ile VBA düzenlemeyi açıyoruz.

Aşağıdaki gibi bir form oluşturuyoruz.

Forma eklediklerim; Bir Label, bir TextBox, bir CheckBox, bir CommandButton

  • Form oluşturma, kontrollerin eklenmesi ve değiştirilmesi konusu burada örnekleriyle açıklanmış.

Word çoklu Arama Vba Form


VBA Makro kodumuz şöyle:


Projeye bir modül (module) ekleyerek şu kodu giriyoruz :

Bu modülü daha sonra üst menüye buton olarak ekleyeceğiz ve formu göstererek, çoklu arama işlemini başlatacağız.

Vba Proje Modül Module Ekleme


Ayrıca formdaki butona çift tıklayarak şu kodu ekliyoruz:

Böylece butonla makroyu çağıracağız.


Eğer TextBox’a kelimeleri girdikten sonra, butona tıklamadan direkt olarak “Enter” ile makroyu başlatmak istiyorsanız  şu kodu girmeniz lazım:

(TextBox’un Keydown event’i seçin)

Textbox Keydown Enter Ile Başlat


Ardından, VBA formunun ekrandaki yerini ayarlamak için bu kodu ekliyoruz:

(Böylece form, yatayda tam ortada ve dikeyde de, yazıların üstünde çıkıyor. Application.Top + 120’yi kendi ihtiyacınıza göre değiştirmeniz gerekebilir.)

 

Vba Form Ekrandaki Yeri

 


Arama ekran görüntüsü ve Sonuç da şu şekilde:

Word Birden çok Kelime Arama Ara Bul Form


Son olarak, Arama Makrosunu başlatmak ve daha sonra işaretli (renkli) kelimelerin işaretini kaldırmak için Renk Silme makrosu üst menüye ekliyoruz.

Word Dosya Seçenekler

 

  • Bunun için önce Dosya > Seçeneklere tıklıyoruz.

 

  • Sonra “Şeridi özelleştir”i seçerek, “Buradaki komutlardan seçim yap: Makrolar”ı seçiyoruz.

 

  • Renk sıfırlama makrosunu ve eklediğimiz modülü (Module 1) Ana Sekmelerde açacağımız yeni bir menüye ekliyoruz.

 

 

Word Şeridi özelleştir Makro Ekle

 

  • Ayrıca Word şeridine ekleyeceğimiz makro düğmesini yeniden adlandırıp, simgesini de zevkimize göre değiştirebiliriz.

Word şeridi özelleştir Makro Yeniden Adlandır Simge Değiştir


Word-Giriş üst menüsünün son hali :

Böylece tek tıklamayla çoklu arama başlıyor ve daha sonra yine tek tıklamayla arananların arka plan rengini silebiliyoruz.

Word Menüsüne Makro Tuşu Ekleme

 



Eğer makroyla uğraşmak zor geliyorsa 2. çözüm de, başka bir yardımcı program kullanmak.

Örneğin FileLocator Pro bu iş için ideal. Mükemmel bir metin arama programı. Aynı anda bir çok dosya türü içinde, istediğiniz kadar kelimeyi hızlıca tarayabilir. (“Arama-Bulma”da çok başarılı bir prg. ancak “Bul-Değiştir” özelliği yok.)

$59.95’lik fiyatı biraz tuzlu ama bu işe ayıracak param yok derseniz “filelocator pro full” aramasını yaparak çıkan sitelerden birinden programı crackli inderebilirsiniz. (Tabii virüs-trojan vs. riski her zaman mevcut.)


Rastgele ürettiğimiz 5 paragraflık Türkçe metinleri, Test-1.docx, Test-2.docx, Test-3.docx  olarak, “C:\Test\” klasörü içine kaydettim.

Test Word Dosyaları Docx


Arayacağımız kelimeler bunlar olsun:

sokak OR domates OR hesap makinesi

“Containing Text” bölümüne aranacak kelimeleri yazıyoruz.

“Look in” kısmına da klasör yolunu ekliyoruz.

  • OR yani VEYA ile bu kelime ve kelime öbeklerinden herhangi birinin aranmasını sağlıyoruz.  Sonuçta 3 dosyada da kelimelerin bazılarını yakalıyor.

Metinde Veya Ile çoklu Kelime Arama Filelocator Pro

 

  • Yalnızca boşluk veya AND kullanırsak, bu kelimelerin hepsinin geçtiği metinleri bulacaktır. Eğer hepsi yoksa sonuca yansımayacaktır, bu durumda Test-2.docx sonuçlarda yer almıyor.

Metinde çoklu Kelime Arama Filelocator Pro

 


 

 

 


Bir yorum ekleyin

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir