Results 1 to 3 of 3
  1. #1
    New Lounger
    Join Date
    Sep 2008
    Posts
    2
    Thanks
    0
    Thanked 0 Times in 0 Posts

    How can I accept ALL similar changes in Word (2003)

    Hello. I have a document that I need to revise based on the changes made. But the genius that did the changes, also changed the language of the document while 'Track Changes' was activated, so these formatting changes are all over the document. Is there a way to accept ALL of these changes at once? Thanks.

  2. #2
    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: How can I accept ALL similar changes in Word (2003)

    I think you might need a macro to do this. In the following, replace XXXXX with the name of the replacement language that you want to accept. To determine what languages were used, you can run the diagnostic procedure that follows.

    <code>Sub AcceptFormat()
    With ActiveDocument.Revisions
    If .Count = 0 Then
    MsgBox "No tracked changes found. Bye!", vbExclamation
    Exit Sub
    End If
    Dim intCounter As Integer
    For intCounter = .Count To 1 Step -1
    If InStr(1, .Item(intCounter).FormatDescription, "Formatted: XXXXX", vbTextCompare) Then
    .Item(intCounter).Accept
    End If
    Next
    End With
    End Sub</code>

    <code>Sub FindFormatRevisions()
    With ActiveDocument.Revisions
    If .Count = 0 Then
    MsgBox "No tracked changes found. Bye!", vbExclamation
    Exit Sub
    End If
    Dim intCounter As Integer
    For intCounter = .Count To 1 Step -1
    If .Item(intCounter).FormatDescription <> vbNullString Then
    ' Add the format description to the VBE Immediate window
    Debug.Print .Item(intCounter).FormatDescription
    End If
    Next
    End With</code>

    Hope this helps.

    P.S. Welcome to the Lounge. If you haven't used macro code before, please ask for assistance in setting it up.

  3. #3
    New Lounger
    Join Date
    Sep 2008
    Posts
    2
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: How can I accept ALL similar changes in Word (2003)

    I officially love you. It worked beautifully!!

    Thank you so much.

    Claudia

Posting Permissions

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