Page 1 of 2 12 LastLast
Results 1 to 15 of 16
  1. #1
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Track Changes (Word 2000)

    Hi Gurus,

    I have a word document which has been edited by many persons and also by the same person on two different ocassions. If I retain all the changes the document gets very messy and accepting / rejecting changes for each and every ocassion is also a long drawn affair. Is there any way by which I can accept all changes made by a particular author. Further, if the author has edited the document more then once, is there a way to accept / reject all the changes by the same author on a particular date. Your help would be highly appreciated.

    rgds
    Novice

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Track Changes (Word 2000)

    The following macro is not very elegant, but hopefully it does what you want. If you run the macro, it'll ask for the author and for the revision date. You can leave either blank if you want to accept revisions from all authors and/or all dates.
    The macro does not distinguish between different revision sessions by the same author on the same date.

    Sub AcceptRevisions()
    Dim strAuthor As String
    Dim strDate As String
    Dim rev As Revision
    strAuthor = InputBox("Author(leave blank for all)")
    strDate = InputBox("Date (leave blank for all)")
    If Not strDate = "" Then
    If Not IsDate(strDate) Then
    MsgBox "Please try again and enter a valid date.", vbExclamation
    Exit Sub
    End If
    End If
    For Each rev In ActiveDocument.Revisions
    If Not strAuthor = "" Then
    If Not rev.Author = strAuthor Then
    GoTo NextRev
    End If
    End If
    If Not strDate = "" Then
    If Not Int(rev.Date) = CDate(strDate) Then
    GoTo NextRev
    End If
    End If
    rev.Accept
    NextRev:
    Next rev
    End Sub

  3. #3
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Track Changes (Word 2000)

    Hans,
    Thanks for the great work. Is it possible for me to see who all have done the editing and when so that i can pick up from this list while accepting or rejecting the changes. ( different authors use different date styles). I know I could be asking for something which may not be possible easily. But never try never know. The general human tendency is to automate everything and do least work.

    Rgds
    Novice

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Track Changes (Word 2000)

    The attached document is a beginning, others may have a more sophisticated approach. There is a userform with a list box that displays revision authors and dates. They are not sorted properly - that was too much work.
    Attached Files Attached Files

  5. #5
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Track Changes (Word 2000)

    Hans,

    I tried to use the attached file and it worked. I am not sure how to copy this Macro in my Normal dot file and as such now I cannot get the attached file to work also. It says that the macro is disabled for this project. can you tell me how to get this Macro in my Normal / global template so that this macro is available to me for any / all documents.
    Rgds
    Novice

  6. #6
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Track Changes (Word 2000)

    To move the userform and macro code to your Normal.dot template, you can do this.
    <UL><LI>Open Hans' document and then open the VB Editor (Alt+F11)
    <LI>You should see a pane called the Project explorer that displays Normal and Project (10-575844-Revisions), and possibly other objects.
    <LI>Expand the Forms folder under Project (10-575844-Revisions), right-click frmRevisions, and choose Export
    <LI>Expand the Modules folder under Project (10-575844-Revisions), click Module1 and, in the Properties pane, give it a unique name like ModRevisions; then right-click modRevisions, and choose Export
    <LI>Highlight Normal in the Project Explorer and use File>Import to import the two objects you just exported into Normal.dot
    <LI>Close the editor
    <LI>Close Hans' document
    <LI>Test whether it worked by using Tools>Macro>Macros... and running ShowForm[/list]Note: your change to Normal.dot has not yet been saved. To save Normal.dot, hold Shift, click the File menu, and choose Save All.

  7. #7
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Track Changes (Word 2000)

    Jscher,

    Thanks for the support. My problems dont seem to end. After doing what you wrote the Macro works well on one document while on another I get the following error.

    "Run time error ..........
    Method 'Author' of object 'Revision' failed.

    I am not sure whjat is happening. Can you help me further?

    rgds
    Novice

  8. #8
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Track Changes (Word 2000)

    > Method 'Author' of object 'Revision' failed.

    As far as I know, you can't have a revision without an author, but perhaps Word knows something I don't know. <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

    Is the problem document one which you can post (i.e., no confidential info in it)?

  9. #9
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Track Changes (Word 2000)

    Hi Jscher,
    It is interesting to note that the Macro works for some documents while it shows error in other documents. Within these documents if some portions are deleted then the Macro works. I am attaching one portion of the document wherein the Macro does not work. Pls check it out and let me know what could be wrong.
    Attached Files Attached Files

  10. #10
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Track Changes (Word 2000)

    The macro from the document I attached to <post:=575,844>post 575,844</post:> works without errors for the TestDocument.doc document you provided. I did notice, however, that one of the authors name was in Japanese characters - see screenshot below. I don't know if this would cause problems on your PC (I have Word 2002/Windows XP)
    Attached Images Attached Images
    • File Type: png x.png (5.9 KB, 0 views)

  11. #11
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Track Changes (Word 2000)

    Hi Hans,

    The Macro works on the other parts of the Document which contained the Japanese Characters. Only on this part ( Test doc) it did not work for me. Is there a way I can remove the existing Macro and reload same.

    Thanks for your assistance.

    Novicexcelite

  12. #12
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Track Changes (Word 2000)

    You can activate the Visual Basic Editor (Alt+F11), locate the macro code and rename it, delete it, or whatever. You can then copy and paste it from the document I attached earlier in this thread.

  13. #13
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Track Changes (Word 2000)

    Hi Hans,

    Thanks for the advice.

    Rgds
    Novicexcelite

  14. #14
    2 Star Lounger
    Join Date
    Jan 2004
    Posts
    110
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Track Changes (Word 2000)

    Hi Hans / Jscher,

    I deleted the macro and reloaded same as per the instructions of Jscher. However, I still have the same problem i.e it does not work in some files. The error is same i.e. Method 'Author' of object 'Revision' failed. Has this got some thing to do with that 'Authors' are supposed to 'correct' the documents and the 'Reveiwer' is supposed to 'Review' the document. This I believe is due to the different versions of the Word. When I run the debug command the line "frmRevisions.Show " gets highlighted in yellow. Can you help to resolve this error.
    Regards
    Novice

  15. #15
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Track Changes (Word 2000)

    Earlier on, you attached a document that according to you caused an error; however, it didn't do so on my PC. Could you try again to attach a document that causes the macro to fail?

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •