View Single Post
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Greg Maxey[_2_] Greg Maxey[_2_] is offline
external usenet poster
 
Posts: 668
Default How can I accept track changes without loosing the font colour?

Are all the changes appearing in blue colored font (i.e., both insertions
and deletions) or are you only wanting to keep insertions with blue colored
font. Either way, you are going to need to run a macro. If the latter,
then perhaps something like this:

Sub ScratchMaco()
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

For help installing and using the macro see:
http://www.gmayor.com/installing_macro.htm


Anupam (Sydney Australia) wrote:
I'm a MS Word 2003 user, where I have updated some documents with
track change on. The changes have appeared in blue coloured font.
Now I want to accept all the changes, but still want to retain the
changes in blue cloured fonts in the final document.
Thanks.