Microsoft Office Forums - View Single Post - Accept/reject tracked changes in word and retain font color/formatting

gmaxey · 07-06-2020, 02:22 PM

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

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