Finding and replacing fonts and styles

Adriano · #1 03-10-2013, 03:48 AM

Hi,
Is there any way of merging documents and convert the changes into text?

For example, I've this line:

Original text new text old text original text again

I would like to keep the blue and red colors, but convert it to text instead of that "changes links". Is that possible?

I've tried to convert the doc file to pdf, but sometimes I loose the format.

Thanks,

Adriano

macropod · #2 03-10-2013, 02:09 PM

Hi Adriano,

Have you tried 'Compare', on the Review tab?

Adriano · #3 03-10-2013, 02:12 PM

Yes, I've tried it. But it doesn't give me real text, but a "control of changes" option.

macropod · #4 03-10-2013, 02:16 PM

Hi Adriano,

It is 'real' text. It's simply formatted in a way to show the differences pending a decision to accept/reject it - which you don't have to do.

Adriano · #5 03-10-2013, 03:22 PM

Dear Paul,
Yes, I know I need to accept or reject it. But the fact is I need to work with both texts (the old and the new) in another software and when I export the document like this, the other software only recognizes the new text.
Is that possible to convert both of them into text, keeping the blue and red colors?
Thanks again,
Adriano

macropod · #6 03-10-2013, 04:53 PM

OK, if you create the 'Red' and 'Blue' character Styles as previously discussed, you could then run the following macro:

Code:

Sub RevisionColorize()
Dim i As Long
With ActiveDocument
  .TrackRevisions = False
  For i = .Revisions.Count To 1 Step -1
    With .Revisions(i)
    If .Type = wdRevisionDelete Then
      .Range.Style = "Red"
    End If
    If .Type = wdRevisionInsert Then
      .Range.Style = "Blue"
      .Accept
    End If
    End With
  Next
  .Revisions.RejectAll
End With
End Sub

Adriano · #7 03-10-2013, 05:31 PM

Thanks a lot!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replacing texts	aslamyahya	Excel Programming	1	02-27-2013 10:38 PM
Fonts error when I used 2 types of fonts in 1 file	cmengenie	Word	3	03-18-2012 02:49 PM
Quick Styles Set saved but it doesnt appear at the styles list!	Pedro77	Word	3	10-15-2011 05:17 AM
Word replacing problem!!!!	Jamal NUMAN	Word	2	07-08-2011 03:56 AM
Replacing default fonts	mark98101	Word	1	01-31-2011 02:31 PM