Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    Jun 2002
    Location
    Durham, North Carolina, USA
    Posts
    140
    Thanks
    5
    Thanked 1 Time in 1 Post

    Cross-reference fields update in Track Changes (Word XP)

    Hi everyone,

    I support a lot of authors who write clinical study reports (CSRs). In these CSRs they'll have lots of cross-refs to publications (journal articles, stuff like that). We do these by creating a bookmark around the article's author's last name, then do Insert...Reference...Cross-reference and choose Bookmark as the type.

    Here's our problem. When we send these CSRs for review internally and use Track Changes, **some** of the cross-refs will show as changes, and not others. We don't want ANY of them to show as tracked changes.

    Does anyone know 1) why some would show and others wouldn't? (My theory: because these are people's names and "Detect language automatically" may be turned on, Word changes the language for some of them and not others) and 2) a way to prevent them from showing as tracked changes?

    I tried to post an example but of course I can't get Word to do it right now.

  2. #2
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Cross-reference fields update in Track Changes (Word XP)

    Hi itsjustb,

    It could be to do with pagination changes when the reviewers open the document using a different printer driver to the one used when the document was saved, or to changes made during the review process. This is especially so if page/paragraph number cross-refernces are involved.

    Here's a macro to accept all fields showing up as tracked changes:
    <pre>Sub AcceptTrackedFields()
    Dim oRange As Word.Range ' All Range objects - includes ranges in the body, headers, footers & shapes
    Dim Fld As Field ' Field Object
    With ActiveDocument
    ' Loop through all range objects and accept tracked changes on fields
    For Each oRange In .StoryRanges
    Do
    For Each Fld In oRange.Fields
    Fld.Select
    Selection.Range.Revisions.AcceptAll
    Next
    Set oRange = oRange.NextStoryRange
    Loop Until oRange Is Nothing
    Next
    End With
    End Sub</pre>

    You could, if you prefer, include this code in the document as an auto_open macro.
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  3. #3
    2 Star Lounger
    Join Date
    Jun 2002
    Location
    Durham, North Carolina, USA
    Posts
    140
    Thanks
    5
    Thanked 1 Time in 1 Post

    Re: Cross-reference fields update in Track Changes (Word XP)

    I hadn't considered the pagination update being the trigger--the whole company is supposed to be on the same driver, but we're not.

    That code will get me where I need! THANKS.

Posting Permissions

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