PC WORLD Online - Word İçin Faydalı Makrolar

Hızlı Dosya Bulma

Uzun zamandır Word ile çalışanlar bilirler. Sabit disklerinde değişik rehberlerde bir dizi DOC soyadlı dosya durur, bunlardan büyük bir kısmının içinde ne olduğunu bilmezler bile.  Eskiden kalma dosyalar hem sabit diskte gereksiz yere yer kaplarlar hem de insanın aklını kurcalayıp dururlar. Aşağıdaki basit makro, Word’ün dosya bulma özelliğini kullanıyor. Girdiğiniz rehber ve alt rehberlerinde, içinde girdiğiniz metni içeren dosyaları bulup çıkarıyor ve ekranda bir bir “preview” modunda görüntülüyor. Özellikle eski dosyalara göz atarken, veya kaybettiğiniz ancak bir kısmını hatırladığınız bir Word belgesini ararken bu makro işinize çok yarayacaktır.

makro 5: dosyabulma

Sub MAIN

Begin Dialog UserDialog 502, 90, "Microsoft Word"
	Text 10, 6, 84, 13, "arama yeri:", .Text1
	Text 48, 30, 52, 13, "metin: ", .Text2
	OKButton 84, 54, 88, 21
	CancelButton 192, 54, 88, 21
	TextBox 103, 5, 364, 18, .TextBox1
	TextBox 103, 26, 364, 18, .TextBox2
End Dialog

Dim dlg As UserDialog
x = Dialog(dlg)

If x = - 1 Then
	Dim dlg1 As FileFind
	dlg1.SearchPath = dlg.Textbox1
	dlg1.Text = dlg.textbox2
	dlg1.SubDir = 1
	dlg1.View = 1
	dlg1.Name = "*.doc"
	y = Dialog(dlg1)
Else
EndIf
End Sub