PC WORLD Online - Word İçin Faydalı Makrolar
Açık belgeleri kapatmak
Word ile çalışırken bir anda bir sürü belge açtınız ve ortalık çarşamba pazarına döndü. İşte tam bu anda Word’ün bütün açık pencereleri tek bir tuş vuruşunda kapatmasını istiyorsunuz ancak böyle bir seçenek Word’de yok. Eh ne yapalım, biz de bir makro yazarız ve olaya çözüm getiririz. Hem de öyle bir makro yaparız ki, ekrana bir diyalog kutusu getirir ve size iki seçenek sunar. Birinci seçeneği tercih ederseniz Word’ün açık bütün belgelerini kapatır, ikinci seçeneği tercih ederseniz Word’ün açık belgelerini kapatmakla kalmaz, Word’den de çıkar. Aşağıdaki makro satırlarını Word’e girdiğinizde bütün problemleriniz halledilmiş olacak.
Sub main
Begin Dialog UserDialog 213, 120, 307, 117, "Tüm dosyaları kapat"
PushButton 198, 14, 86, 21, "tamam", .Push1
PushButton 198, 46, 86, 21, "tamam", .Push2
Text 20, 18, 163, 13, "Bütün belgeleri kapat", .Text1
Text 19, 42, 163, 13, "Bütün belgeleri kapat", .Text2
Text 59, 57, 130, 13, "ve word'den cık", .Text3
CancelButton 198, 81, 88, 21
End Dialog
Dim dlg As UserDialog
x = Dialog(dlg)
If x = 1 Then
FileCloseAll
ElseIf x = 2 Then
FileExit
Else
EndIf
End Sub