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