Accept/reject tracked changes in word and retain font color/formatting

[1van]

Hello,




I have been using a macro that accepts tracked insertions and leaves the formatting of the text (blue):


Sub acceptChanges()
Dim oRev As Revision
For Each oRev In ActiveDocument.Revisions
If oRev.Type = wdRevisionInsert Then
oRev.Range.Font.Color = wdColorBlue
End If
oRev.Accept
Next
End Sub


but in this case the deletions (red text) is removed from the document, so my question is: is there a way to make a single macro that will simultaneously find insertions (blue text) accept them, and leave them blue, but if it finds deletions they would be rejected and left red/strike-trough? Because I cant make it happen...