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
                Case wdRevisionInsert
                    rev.Range.Underline = wdUnderlineSingle
                Case wdRevisionFormat
                     MsgBox "revision format"
                Case wdRevisionStyle
                     MsgBox "revision style"
                Case wdRevisionStyleDefinition
                     MsgBox "revision style def"
                Case wdRevisionSectionProperty
                     MsgBox "revision section prop"
                Case wdRevisionReplace
                     MsgBox "revision replace"
                Case wdRevisionTableProperty
                     MsgBox "revision table property"
                Case wdRevisionReconcile
                     MsgBox "revision reconcile"
                Case wdRevisionProperty
                     MsgBox "revision property"
                Case wdRevisionParagraphProperty
                     MsgBox "revision para property"
                Case wdRevisionParagraphNumber
                     MsgBox "revision para number"
                Case wdRevisionDisplayField
                     MsgBox "revision display field"
                Case wdRevisionConflict
                    MsgBox "revision conflict"
                Case wdNoRevision
                    MsgBox "no revision"
                Case Else
                    MsgBox "unknown type"
                    doc.Comments.Add rev.Range, "unknown type"
            End Select
    End Sub

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


  • 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