Results 1 to 7 of 7
  1. #1
    Lounger
    Join Date
    May 2002
    Location
    Cleveland, Ohio, USA
    Posts
    34
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Find Revisions (Word 2000 SR-1)

    Is it possible to use Find/Replace to find revised text? What I need to do is locate changed text and replace it with certain formatting (change the font color). Eventually I will accept/reject the changes, but I wish to use Word's Find/Replace feature for this.
    Thanks
    Smiles
    Kay <img src=/S/cool.gif border=0 alt=cool width=15 height=15>

  2. #2
    5 Star Lounger
    Join Date
    May 2001
    Location
    Stuttgart, Baden-W, Germany
    Posts
    931
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Find Revisions (Word 2000 SR-1)

    Hi Kay,

    It's undocumented, but you can put your cursor in "Find what:", and hit Ctrl+N.

    "New" will appear under "Find what", and all revised text will be found if you leave "Find what" empty.

    If you use Ctrl+N once more, it will change to "Not New", and will only find text if it was already there before the revisions.

    You can also use it to find specific text, or combine it with other formatting options (to find "Heading 1" style paragraphs that changed, for example).

    I think they removed this feature in Word2002, unfortunately.

    <img src=/S/cheers.gif border=0 alt=cheers width=30 height=16> Klaus

  3. #3
    Lounger
    Join Date
    May 2002
    Location
    Cleveland, Ohio, USA
    Posts
    34
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Find Revisions (Word 2000 SR-1)

    Klaus
    Thank you!!!!! It works perfectly!!!!!
    Smiles
    Kay <img src=/S/angel.gif border=0 alt=angel width=15 height=21>

  4. #4
    Lounger
    Join Date
    May 2002
    Location
    Cleveland, Ohio, USA
    Posts
    34
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Find Revisions (Word 2000 SR-1)

    Klaus
    Thanks again! It sure does work great manually, but when I try to capture it using the macro recorder it doesn't capture the "New". Any suggestions

    The code looks like this:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorDarkBlue
    With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub


    Obviously I am new at this!

    Thanks again.
    Smiles
    Kay

  5. #5
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Find Revisions (Word 2000 SR-1)

    If you are using code, you can do it "directly" as follows:
    <pre>Option Explicit
    Sub ColorMyInsertedRevisions()
    Dim rev As Revision
    For Each rev In ActiveDocument.Revisions
    If rev.Type = wdRevisionInsert Then
    rev.Range.Font.Color = wdColorGreen ' your color preferences may vary
    End If
    Next rev
    End Sub</pre>

    Of course, you can't see the color change until you accept the revisions, but if you press Shift+F1 and inspect the insertions, you will see the font color listed as direct formatting.

  6. #6
    Lounger
    Join Date
    May 2002
    Location
    Cleveland, Ohio, USA
    Posts
    34
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Find Revisions (Word 2000 SR-1)

    Jefferson
    Thank you!! However if I have added some new text in some of the form fields, I get an Run-time error '5852' - Requested object is not available.
    If I debug the code it lands at this line:

    If rev.Type = wdRevisionInsert Then

    I seem to only get that this error when I add brand new text in a form field. I have attached the document with the macros that copied.

    Any help would be greatly appreciated.

    Smiles
    Kay

    Sorry to be a pain!!!!
    Attached Files Attached Files

  7. #7
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Find Revisions (Word 2000 SR-1)

    I seem to get the error for the first revision in a FormField while the form is unprotected. I'm not sure how Word is supposed to work in this scenario; I guess it's in "design" mode or something. I'm not sure there is going to be a reliable way to fix this. Also, you can't apply formatting inside a FormField, I don't think, so we probably should not try to format those.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •