none
Making Track Changes Permanent RRS feed

  • Question

  • Hi,

    I have been recently looking for a way to make track changes in a document permanent, and I have come across a code by Cindy Meister which works very well. I have reproduced the code below. 

    The code works very well except:

    1. when updating a numbered list. If the document has a numbered list, and that numbering changes, then the numbered list changes by striking out the old number and updating its number in the list (e.g. if you had a list of 4, and insert a new number 2 with track changes on, the old number 2 gets striked out and becomes an underlined 3 etc.)
    2. where multiple users have done track changes, the code does not differentiate between them. It would be good if you could keep the different colours by default
    3. where track changes have been done differently from default setting (e.g. double underline or double strike through - in cases where, for example, its necessary to show further changes after the initial changes) the below code changes these to single underline and single strike through. 

    If there is any way to resolve these particular issues, I would be extremely grateful. Using track changes is something I use almost daily and it would be of enormous assistance to me

    Many thanks in advance.

    The code:

    Sub FormatRevisions()
        Dim doc As Word.Document
        Dim rev As Word.Revision
        
        Set doc = ActiveDocument
        doc.TrackRevisions = False
        For Each rev In doc.Revisions
            Select Case rev.Type
                Case wdRevisionDelete
                    rev.Range.Font.StrikeThrough = True
                    rev.Reject
                Case wdRevisionInsert
                    rev.Range.Underline = wdUnderlineSingle
                    rev.Accept
                Case wdRevisionFormat
                     MsgBox "revision format"
                    rev.Accept
                Case wdRevisionStyle
                     MsgBox "revision style"
                    rev.Accept
                Case wdRevisionStyleDefinition
                     MsgBox "revision style def"
                    rev.Accept
                Case wdRevisionSectionProperty
                     MsgBox "revision section prop"
                    rev.Accept
                Case wdRevisionReplace
                     MsgBox "revision replace"
                    rev.Accept
                Case wdRevisionTableProperty
                     MsgBox "revision table property"
                    rev.Accept
                Case wdRevisionReconcile
                     MsgBox "revision reconcile"
                    rev.Accept
                Case wdRevisionProperty
                     MsgBox "revision property"
                    rev.Accept
                Case wdRevisionParagraphProperty
                     MsgBox "revision para property"
                    rev.Accept
                Case wdRevisionParagraphNumber
                     MsgBox "revision para number"
                    rev.Accept
                Case wdRevisionDisplayField
                     MsgBox "revision display field"
                    rev.Accept
                Case wdRevisionConflict
                    MsgBox "revision conflict"
                    rev.Accept
                Case wdNoRevision
                    MsgBox "no revision"
                    rev.Accept
                Case Else
                    MsgBox "unknown type"
                    doc.Comments.Add rev.Range, "unknown type"
            End Select
        Next
    End Sub


    • Edited by Matt Y3 Saturday, September 21, 2013 3:44 PM
    Saturday, September 21, 2013 3:28 PM

Answers

  • When you are tracking changes, auto numbering will behave the way you describe it. There is no way to get around it, other than accepting or rejecting the relevant changes. (There is a similar problem with fields.)

    Stefan Blom, Microsoft Word MVP

    Saturday, September 21, 2013 5:08 PM