I frequently work with large documents that have a lot of tracked changes. I would find it incredibly useful to have a macro that can identify places where the font color has been changed and reject those changes. For this particular operation, I want to ignore all other tracked changes, including changes to other font attributes. So far, I have this:

For Each trackedchange In ActiveDocument.Revisions
  If ActiveDocument.Revisions(1).Type = 3 Then
    ActiveDocument.Revisions(1).Reject
  End If
Next trackedchange
The problem here is that it finds any kind of change to the font, be it color, italics, bold, whatever. Is there a way to specify font color only?