AnsweredAssumed Answered

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

Question asked by Andrew Whiting on Aug 1, 2013
Latest reply on Aug 2, 2013 by Tim Read

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!

Outcomes