4 Replies Latest reply on Aug 2, 2013 2:29 AM by Tim Read

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

    Andrew Whiting

      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!