Macro para criar cópias de segurança automaticamente ao sair do Word

‘ Macro para sempre manter uma cópia de segurança


‘ Colocar este código em normal / módulo1

Function FazerCopiaS()

‘ Macro1 Macro
‘ Macro gravada 15/10/2011 por Cliente

    Set fs = CreateObject(“Scripting.FileSystemObject”)
   
    CaminhoDocumento = fs.buildpath(ActiveDocument.Path, ActiveDocument.Name)
    CaminhoCopiaS = fs.buildpath(“D:\SuaPasta\Minhas Cópias de Segurança”, ActiveDocument.Name)
   
    fs.CopyFile CaminhoDocumento, CaminhoCopiaS
   
End Function
       
  
‘ Colocar este código em ThisDocument (salva ao sair do Word: mudar para _Save e ver se funciona)

Private Sub Document_Close()

FazerCopiaS

End Sub

Sobre NilsonRDG

Minha lista de scripts/rotinas em Autolisp, Autohotkey, JavaScript, PHP e VBA. Nilson Rodrigues - Ouro Preto - MG
Esse post foi publicado em Macro, VBA, Word. Bookmark o link permanente.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s