How to select ALL DELETED (or ALL ADDED) text (track change) in MS Word 2016
Solution 1:
I modified a macro from the link you gave. Below works for me in Word 2010, so maybe it works in 2016 too.
Sub MarkChanges()
Dim arev As Revision
With ActiveDocument
For Each arev In .Revisions
If arev.Type = wdRevisionDelete Then
arev.Range.HighlightColorIndex = wdYellow
ElseIf arev.Type = wdRevisionInsert Then
arev.Range.HighlightColorIndex = wdGreen
End If
Next arev
End With
End Sub
Solution 2:
modified endrju's macro to Remove highlights, if one needs that.
Sub RemoveHighlightTrackChanges()
Dim arev As Revision
With ActiveDocument
For Each arev In .Revisions
If arev.Type = wdRevisionDelete Then
arev.Range.HighlightColorIndex = wdNoHighlight
ElseIf arev.Type = wdRevisionInsert Then
arev.Range.HighlightColorIndex = wdNoHighlight
End If
Next arev
End With
End Sub
Tried it myself. it is working.
Thanks.