Word BackupMacro
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
