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

		Microsoft Office Forums > Microsoft Word > Word VBA
Accept/reject tracked changes in word and retain font color/formatting

FAQ

Thread Tools

Display Modes

07-06-2020, 02:22 PM

gmaxey

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

Office 2016

Expert

Join Date: May 2010

Location: Brasstown, NC

Posts: 1,636

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

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

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