![]() |
#1
|
|||
|
|||
![]()
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
![]() ![]() ![]() |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |
![]() |
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 |