#1
|
|||
|
|||
Accept/reject tracked changes in word and retain font color/formatting
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... |
#2
|
|||
|
|||
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 |
#3
|
||||
|
||||
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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#4
|
|||
|
|||
Guessed & gmaxey thank you so much! Works exactly as intended
|
|
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 |