Here is what I did and it worked.
'Type of revision
If oRevision.Type = wdRevisionInsert Then
.Cells(3).Range.Text = "Inserted"
'Apply automatic color (black on white)
oRow.Range.Font.Color =...
Here is the code below.
I have added the wdrevisionproperty Case in the code, to display all formatting changes.
However, as you can see in the code, it only has two areas in the code where it only lists "Inserted" and "Deleted" items in .cell(3)
I need to add the third property to the...
How do I add another line in here. I keep getting error?
'Type of revision
If oRevision.Type = wdRevisionInsert Then
.Cells(3).Range.Text = "Inserted"
'Apply automatic color (black on white)...
I need the ability to not only extract Insert and Deleted wdRevsions, but I need to know if a formatting change as been made in this Extract to new document Macro. Can anyone help?
Public Sub ExtractTrackedChangesToNewDoc()
'Macro created 2008 by Paul Krumrei
'The macro creates a...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.