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