Macro to Highlight Track Changes in Word

Note: This macro highlights only the insertions in your track changes. It does not highlight the deletions.

Often, we need to highlight the changes in our document after making the corrections suggested by a reviewer. I came across this interesting macro that made my job easy.

Sub HLight_Inserts()

Dim i As Long
Dim iMax As Long
Dim bAccept As Boolean ' Set this to True if you want to accept revision

ActiveDocument.TrackRevisions = False
' ----------------------------
' Set bAccept  = True if Insertions to be Accepted
' ----------------------------
bAccept = False
' ----------------------------

iMax = ActiveDocument.Revisions.Count
For i = 1 To iMax
    If i > iMax Then Exit For
    Debug.Print ActiveDocument.Revisions(i).Type
    If ActiveDocument.Revisions(i).Type = wdRevisionInsert Then
        ActiveDocument.Revisions(i).Range.HighlightColorIndex = wdYellow
        If bAccept = True Then
            ActiveDocument.Revisions(i).Accept
            i = i - 1
            iMax = iMax - 1
        End If
    End If
Next i
ActiveDocument.TrackRevisions = True
End sub

To change the highlight color, find the word WdYellow in the code above and change it to WdTurquoise, WdBrightGreen or other highlight color names.

Macro Courtesy: p2p.wrox.com

About these ads