Highlight changes after Track Changes is turned off

macropod · #2 11-16-2017, 05:09 PM

You could do that with code like:

Code:

Sub Demo()
Dim Rvn As Revision
With ActiveDocument
  For Each Rvn In .Revisions
    With Rvn
      Select Case .Type
        Case wdRevisionInsert, wdRevisionMovedTo
          .Range.HighlightColorIndex = wdYellow
      End Select
    End With
  Next
  .Revisions.AcceptAll
End With
End Sub

Note that deletions etc. are simply deleted - it's a bit hard to highlight something that's been deleted.

IMHO, though, you'd do better to accept or hide all the deletions, leaving just the additions/moved content as visible tracked changes, formatted as red (a track change option), for example, so the change bars would remain for deletions and the new content would have both a change bar and coloured formatting to make them stand out. Then, immediately the update is published, you can accept all the changes before starting on the next revision cycle. That's how it was done when I managed instruction manuals for the organisation I formerly worked with. Worked well. In addition, we archived each edition with the tracked changes in-situ to provide a permanent record of what had changed with each iteration.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Track Changes - how do I make it to be turned on automatically for every doc I open?	goni	Word	4	07-10-2016 09:00 AM
Track changes turned on but still not working	piasalady	Word	4	02-05-2016 12:39 PM
Everytime I open a new document Track Changes is always turned on when I type.	ECCLA	Word	3	08-07-2013 05:04 PM
Mail Merge Fields Show Up As Track Changes When its Turned Off	zoysiaspp	Mail Merge	1	09-28-2012 08:23 PM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM