Skip to main content

Create auto backup for word documents using macro.

This is a macro for Microsoft Word to save documents with incremented revision numbers in order to prevent loss of work and to easily revert changes.

When saving this will save the document with the original filename.
Everytime it is saved using this macro it will append the revision number to the filename.
For Example: Dissertation – Revision 011 – Jan 6 2011.doc

Installation instructions for Microsoft Word 2010:
Make sure the Developer Tab is enabled:
Office 2010:
Click File -> Options
Click Customize Ribbon on the left.
In the right column, check the ‘Developer’ check box.
Click OK.
Office 2007:
Click the Office button in the top left.
Click “Word Options” located in the bottom right of the menu.
On the left, click Popular.
In the right column, click “Show Developer tab in the Ribbon”.
Click OK.
Click the Developer tab in Word.
Click Macros.
In the Macro name field type “SaveMacro” and click the Create button.
Delete everything from Sub SaveMacro() to End Sub.
Copy and paste all the text in the box below:

Sub SaveMacro()
Dim WSHShell, RegKey, rkeyWord, Result
Set WSHShell = CreateObject("WScript.Shell")
Dim intCount As Integer
Dim strDate As String
Dim strPath As String
Dim strFile As String
Dim strFileType As WdDocumentType
Dim strRevisionName As String
Dim intPos As Integer
Dim sExt As String
strDate = Format((Date), "dd mm yyyy")
sExt = ".doc"
strFileType = wdFormatDocument
With ActiveDocument
On Error GoTo CancelledByUser
If Len(.Path) = 0 Then
End If
strPath = .Path
strFile = .Name
End With
intPos = InStr(strFile, " - ")
If intPos = 0 Then
intPos = InStrRev(strFile, ".doc")
End If
strFile = Left(strFile, intPos - 1)
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\Word\Settings\"
On Error Resume Next
rkeyWord = WSHShell.RegRead(RegKey & strFile)
If rkeyWord = "" Then
WSHShell.regwrite RegKey & strFile, 0
GoTo Start:
End If
intCount = Val(rkeyWord) + 1
WSHShell.regwrite RegKey & strFile, intCount
strRevisionName = strPath & "\" & strFile & " - Revision " & Format(intCount, "00#") & " - " & strDate & sExt
ActiveDocument.SaveAs strRevisionName
Exit Sub
MsgBox "Cancelled By User", , "Save Cancelled."
End Sub

Sub FileSave()
End Sub

Now click on the down arrow from the Quick Access Toolbar, then click More Commands…
Now under where it says “Choose commands from:” change the drop down box to Macros.
Click on Normal.NewMacros.SaveMacro then click Add.
It will now appear in the right column.
If you want to change the icon, click on the Macro, then click Modify below.
Once done, click OK.

Popular posts from this blog

Setup cannot find office.en-us\dwtrig20.exe during office installation


Setup cannot find office.en-us\dwtrig20.exe during office installation


Method 1:

a) Uninstall skype form control panel.

b) After installing office, re-install skype.

Method 2:
a) Browse disk by right clicking on it with mouse.
b) Double click on setup.exe file from the same location.

Method 3:
Note: Take backup of your registry before modifying it. 
For registry backup: open "run" >> type "regedit" >> goto "file" >> click on "export" on desktop.

a) Edit the registry.
HKEY_LOCAL_MACHINE > SOFTWARE > MICROSOFT > OFFICE Delete the keys (items) you find in the OFFICE folder but not the sub-folders. This removes traces of previous installs to avoid possible conflicts when installing the new version of Office.

Delete the keys (items) you find here.

Excel 2013 right click doesn't work in spreadsheet.


Excel 2013 right click doesn't work in spreadsheet.


Check if excel works in safe mode.
1. Hold Windows key + R.
2. Copy and paste, or type the following command in the Open box, and then press Enter:
Excel /safe

Note: There is space between Excel and / If Excel safe works, disable the add-ins following steps mentioned below and determine the problem causing add-in: 
Try deleting following key from registry.
Excel 2007. Go to regedit and delete Options entry from HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\ and verify the result.
• Hold Windows key + R.
• Copy and paste, or type the following command in the Open box, and then press Enter:
right click on Options and delete it.
Note: Ensure to back up the registry before any modification or deletion.
a) Locate and click the key or subkey that you want to back up.
b) Click the File menu, and then click Export.
c) In the Save in box, select the locati…

your organization's policies are preventing us from completing this action for you. Please contact your help desk.

Error: your organization's policies are preventing us from completing this action for you. Please contact your help desk. Method 1:
Close IE, OutlookInstalling another browser (like Firefox or Chrome)Set it as DefaultClose itOpen IE, let it get set as DefaultClose itNow try Outlook
Method 2: Oepn regedit and modify the defaule values for file associations for.

HeyKeyClassRoot\.htm and HayKkeyClassRoot\.html, the (Default) value change from something like.change the value from ChromeHTML.I2O57VLN4B4DF63FN2NAI4AUOI to "htmlfile".do the same for HKCR\.xht and HKCR\.xhtml  and changed from orphaned Chrome entries to "xhtmlfile" Note: Please take the backup for registry before making any changes in registry.
You can also use the KB article to fix the hyperlink issue in outlook.