PC WORLD Online - Word İçin Faydalı Makrolar
Dosya Kopyalama
O anda üzerinde çalıştığınız Word belgesini kaydettikten sonra başka bir yere bir de yedeğini almak ister misiniz. Aşağıda listesini verdiğimiz dosyakopyala makrosunu word makro arşivinize eklerseniz, bu zahmetsizce başarabilirsiniz.
makro 4: dosyakopyala
Sub MAIN
a$ = FileName$()
Dim dlg As CopyFile
dlg.FileName = a$
dlg.Directory = "C:\"
x = Dialog(dlg)
If x = - 1 Then CopyFile dlg
End Sub