Zavrieť

Porady

Makro-záložná kópia-word - ešte NEVYRIEŠENÉ

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

Code:
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

Code:
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
Naposledy upravil Kabaka123 : 10.02.16 at 16:31
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    mepex je offline (nepripojený) mepex

    mepex
    Namiesto ActiveThisDocument je potrebné použiť ActiveDocument a ešte do save by som skôr dal
    FileName:=Cil & "\" & ActiveDocument.Name & "_zaloha_" & (format(now,"ddmmyyyy-hhmm")) & ".doc"
    a výsledný reťazec (súbor) bude:
    C:\Document1_zaloha_25012016-1211.doc
    Macro je potrebné napísať ako modul do normal.dot a asi by bolo fajn mu priradiť klávesovú skratku.
    Kabaka123 tak už sa mi podarilo naimportovať makro do excelu, tam to funguje, ale vo worde mi zálohu nevytvára...

    Makro-záložná kópia-word - ešte NEVYRIEŠENÉ

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.