Sub RevisionColorize()
Application.ScreenUpdating = False
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
Application.ScreenUpdating = True
End Sub