#1
|
|||
|
|||
Macro to format additions deletions when Comparing Files
I have Word 2010 - Windows 7 64 Bit.
I'm trying to automate my work flow after I've used the compare function in word. Essentially I want to do 2 things: 1) For all additions I want to highlight the words with: Selection.Range.HighlightColorIndex = wdGray25 2) For all deletions I want to strike-through the words: Selection.Font.StrikeThrough = wdToggle Thank you for your assistance. For posterity: This worked: Sub CompareChanges() ' ' ' Deals with Deleted Changes Number = ActiveDocument.Revisions.Count For x = 1 To Number Set myRev = ActiveDocument.Revisions(x).Range This = ActiveDocument.Revisions(x).Type If This = 2 Then myRev.Font.StrikeThrough = wdToggle End If Next x ' Deals with Inserted Changes For Y = 1 To Number Set myRev = ActiveDocument.Revisions(Y).Range That = ActiveDocument.Revisions(Y).Type If That = 1 Then myRev.HighlightColorIndex = wdGray25 End If Next Y End Sub Last edited by Alphacsulb; 08-19-2013 at 03:43 PM. Reason: Found the answer in another question. |
Tags |
addition, deletion, track changes |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Comparing with a model format | qetuo | Word | 2 | 05-01-2013 11:23 PM |
Formula Additions Incorrect | cpwljaw | Excel | 3 | 09-21-2012 10:11 AM |
How-TO format cells (FILL) by comparing cells | zanat0s | Excel | 1 | 07-03-2012 04:27 AM |
Additions to TOC | judicial85 | Word | 0 | 12-12-2010 08:08 AM |
macro for comparing data from 3 columns and pasting into another worksheet | ashukla | Excel | 1 | 06-24-2009 05:01 PM |