MS Word backup

Copper Contributor

Hi all

I use this Excel VBA snippet in order to backup an Excel file:

Private Sub Workbook_Open()

mfile = Split(ThisWorkbook.Name, ".")
backupFile = ThisWorkbook.Path & "\" & mfile(0) & "-respaldo-" & Format(Now, "dd-mm-yyyy") & "." & mfile(1)
If Day(Now) = 1 Or Day(Now) = 10 Or Day(Now) = 20 Then
ThisWorkbook.SaveCopyAs backupFile
End If

End Sub

 

I'm looking for something similar to backup my Word document/file.

Thanks in advance for your help

ColdGeorge

 

0 Replies