PC WORLD Online - Word İçin Faydalı Makrolar

Rehber Yaratmak

 Aşağıda listesi görülen makro, Word içinde çalışırken bilgisayarınızın sabit diskinde istediğiniz bir yerde bir altrehber yaratmanızı sağlar. Böylelikle, örneğin yeni bir belge yazdıktan sonra bu belgeyi yeni bir rehbere kaydetmek istiyorsanız, bu makroyu kullanabilirsiniz. Bu makroyu özelleştirerek diyalog kutularının kullanımını ilerletebilirsiniz.

makro 3: rehberyarat

Sub MAIN
Begin Dialog UserDialog 554, 90, "rehber yarat"
	Text 10, 6, 91, 13, "rehberi girin", .Text1
	TextBox 12, 22, 516, 18, .TextBox1	'hebelek
	OKButton 32, 47, 88, 21
	CancelButton 144, 46, 88, 21
End Dialog

Dim dlg As UserDialog
GetCurValues dlg
x = Dialog(dlg)

Print x
If x = 0 Then
	Print "komut tamamlandi"
Else
	Print "istediginiz gibi, " + dlg.TextBox1 + " adlı rehber yaratılıyor"
	MkDir dlg.TextBox1
EndIf
End Sub