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