Macro to Set Create Backup As Default in Word for Windows

• Microsoft Word for Windows, versions 1.0, 1.1, 1.1a, 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c, 6.0, 6.0a, 6.0c

SUMMARY

To make sure that Create Backups is always selected when saving a document in Microsoft Word for Windows version 1.0, 1.1, and 1.1a, make the following modifications to the global macros FileSave and FileSaveAs:

FileSave Modifications

   Sub MAIN
   On Error Goto finish
   Dim FileDlg As FileSaveAs
   GetCurValues FileDlg
   FileDlg.CreateBackup = 1
   If FileDlg.Name = "" Then
      Dialog FileDlg
      Super FileSaveAs FileDlg
   Else
      Super FileSave
   End If
   finish:
   End Sub

FileSaveAs Modifications

   Sub MAIN
   On Error Goto finish
   Dlg:
      Dim FileDlg As FileSaveAs
      GetCurValues FileDlg
   FileDlg.CreateBackup = 1
   Dialog FileDlg
   Super FileSaveAs FileDlg
   finish:
   End Sub

MORE INFORMATION

If you have Word for Windows version 2.0 or 6.0, you can permanently select Create Backups by following the steps below:

1. From the Tools menu, choose Options.

2. Choose the Save category.

3. Select the Always Create Backup Copy check box.