Word BackupMacro

Share

allsave.html

Propellerhead’s recent travails with Microsoft Word left him with what was effectively a new installation and he quickly discovered that one of most frequently used features was missing. It’s a macro, called Allsave and he relied on it for at least the past seven or eight years — in various incarnations — to make regular backups of the document being worked on. In days gone by they were sent to a floppy, nowadays they go to a UDF formatted CD-R, which works just like a giant floppy. For anyone who is interested here it is and note that this version only works in Word 2000 onwards.

To install it all you have to do is go to Tools > Macro > Macros in the Name box type Allsave then click the Create button. The Word Basic window opens and you will see a flashing cursor after the words ‘Sub’ (and before the word End Sub), copy and paste the following commands:

Sub Allsave()

‘ Allsave Macro

Dim Pathroute

Pathroute = ActiveDocument.FullName

ChangeFileOpenDirectory "D:"

ActiveDocument.SaveAs FileName:=ActiveDocument.Name, FileFormat:= _

wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, _

WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False

ChangeFileOpenDirectory "C:"

ActiveDocument.SaveAs FileName:=Pathroute, FileFormat:= _

wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, _

WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False

StatusBar = ActiveDocument.Name & " saved in active directory and on backup drive"

End Sub

In this example the backup drive letter is D: if yours has another assignment simply change the letter in the line: ‘ChangeFileOpenDirectory "D:"

To assign the macro a button on the toolbar (or keyboard shortcut) click on Customize on the Tools menu, select the Commands tab, scroll down the list in the left hand window and click on Macros. For more great Word tips, and hundreds of hints and tweaks for Windows PCs head over to the archive at PCTopTips

(Display Name not set)