How can I get a Word Document to automatically change the revision number everytime someone checks it out and edits it?

Hello! I have multiple Microsoft Word '97 documents that have revision letters that automatically change in the document everytime it is opened and something has changed. Well, the company I work for has since upgraded to Word 2010, and the automatic revisions wont update anymore. I know the data card and document are linked because everytime I fill information out in the Data Card, the data on the document changes to what the data card says. Everything changes BUT the revision letter. The file extensions are .doc. I have already tried converting it to a .docm so the macros are enabled, but that still won't work. I don't understand! I have already created a macro.

Heres the code I used:

Sub AutoOpen()

'

' AutoOpen Macro

' Macro created 7/31/13 by AWHITING

'

'    ActiveDocument.Select

'    Selection.WholeStory

'    Selection.Fields.Update

'    Selection.HomeKey Unit:=wdLine

   

'End Sub

   Dim aStory As Range

   Dim aField As Field

   For Each aStory In ActiveDocument.StoryRanges

      For Each aField In aStory.Fields

         aField.Update

      Next aField

   Next aStory

End Sub

Thanks!

SolidworksSolidworks Pdm enterprise Pdm