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...

[gmaxey]

I think you just need to move your oRev.Accept inside the If ... End If code.

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

[Guessed]

Greg's suggestion takes care of your inserted text. To also deal with the deleted text you need to add a condition for it

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

[1van]

Guessed & gmaxey thank you so much! Works exactly as intended