Tak a ešte jedna posledná otázka k záložnej kópii.
Našla som toto makro, ktoré je platné pre vytvorenie kópie v exceli.
Je možno to prerobiť tak, aby to platilo pre word?
Čo je ešte potrebné zmeniť?

Makro pre excel 2003


Sub ulozit()
Cil = "D:\Lenka\Dokumenty\záloha"
On Error Resume Next
MkDir Cil
ActiveWorkbook.SaveCopyAs Filename:=Cil & _
"\" & "Záloha_" & (Format(Now, "d.m.yyyy")) & ".xls"
ActiveWorkbook.Save
MsgBox "Súbor bol úspešne uložený", vbInformation, "Uložené"
End Sub

Makro pre word 2003?

Po OPRAVE


Sub uložit()
Cil = "D:\Lenka\Dokumenty\záloha"
On Error Resume Next
MkDir Cil
ActiveDocument.SaveCopyAs FileName:=Cil & "\" & ActiveDocument.Name & "_zaloha_" & (Format(Now, "ddmmyyyy-hhmm")) & ".doc"
ActiveDocument.Save
MsgBox "Súbor bol úspešne uložený", vbInformation, "Uložené"
End Sub

DOPNENIE
makro vo Worde mi nefunguje