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

Guessed · #3 07-06-2020, 04:15 PM

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

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
    ElseIf oRev.Type = wdRevisionDelete Then
      oRev.Range.Font.Color = wdColorRed
      oRev.Range.Font.StrikeThrough = True
      oRev.Reject
    End If
  Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 16/19 change font and outside border color (same color) eg is red change to pink	jec1	Word VBA	2	12-04-2019 11:32 PM
Word (Windows) cannot accept/reject edits from Word (Mac)	Michael Graubart	Word	0	07-24-2019 04:04 AM
Hyperlink style won't accept font color or underlining	Jennifer Murphy	Word	14	03-19-2017 03:02 PM
Advanced Font Color Manipulation In Word: Inserting another color than the surrounding text	stuartg	Word	1	02-20-2017 12:38 AM
Font Color Question//.Replacement.Font.Color = 12611584	rsrasc	Word VBA	3	09-05-2015 09:03 PM