Microsoft Office Forums - View Single Post - [Solved] Finding and replacing fonts and styles

macropod · 03-10-2013, 04:53 PM

OK, if you create the 'Red' and 'Blue' character Styles as previously discussed, you could then run the following macro:

Code:

Sub RevisionColorize()
Dim i As Long
With ActiveDocument
  .TrackRevisions = False
  For i = .Revisions.Count To 1 Step -1
    With .Revisions(i)
    If .Type = wdRevisionDelete Then
      .Range.Style = "Red"
    End If
    If .Type = wdRevisionInsert Then
      .Range.Style = "Blue"
      .Accept
    End If
    End With
  Next
  .Revisions.RejectAll
End With
End Sub