• Accepting deletions only in track changes (2002/SP3)

    Home » Forums » AskWoody support » Productivity software by function » MS Word and word processing help » Accepting deletions only in track changes (2002/SP3)

    Author
    Topic
    WSamacs
    AskWoody Lounger
    June 15, 2005 at 2:53 am #420762

    I am trying to set up a macro to accept only the deletions in track changes. However, I don’t know the command to do this . I have tried using

    Activedocument.Revisions.AcceptAll

    However this accepts all changes not just deletions. Is it possible to do this?

    Reply | Quote
    Viewing 0 reply threads
    Author
    Replies
    • WSAndrew77
      AskWoody Lounger
      June 15, 2005 at 3:24 am #953730

      Try checking the revision type:

      Sub AcceptAllDeletions()
Dim rev As Revision
For Each rev In ActiveDocument.Revisions
    If rev.Type = wdRevisionDelete Then rev.Accept
Next rev
End Sub
      Reply | Quote
      • WSamacs
        AskWoody Lounger
        June 15, 2005 at 3:45 am #953732

        Many thanks – that works great.

        Reply | Quote
      • WSamacs
        AskWoody Lounger
        June 22, 2005 at 2:56 am #955080

        Sorry an extra request. The macro does not work for changes in the header or footer. Is there a way to include theses areas in the same macro.
        Thanks heaps in advance.

        Reply | Quote
        • WSHansV
          AskWoody Lounger
          June 22, 2005 at 5:34 am #955103

          Try

          Sub AcceptAllDeletions()
          Dim oStory As Range
          Dim rev As Revision
          For Each oStory In ActiveDocument.StoryRanges
          For Each rev In oStory.Revisions
          If rev.Type = wdRevisionDelete Then
          rev.Accept
          End If
          Next rev
          Next oStory
          End Sub

          Reply | Quote
    Viewing 0 reply threads
    Reply To: Accepting deletions only in track changes (2002/SP3)

    You can use BBCodes to format your content.
    Your account can't use all available BBCodes, they will be stripped before saving.

    Your information:




DON'T MISS OUT!
Subscribe to the Free Newsletter
We promise not to spam you. Unsubscribe at any time.
Invalid email address

View the Forum

  • Recent Replies
  • My Replies
  • My Active Topics
  • New Posts in the Last day
  • Private Messages
  • Knowledge Base
  • How to use the Forums
  • All Forums

    • Recent Topics

    My Profile

    March 2025
    S M T W T F S
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031  

    Remembering Woody

     

    Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.

    Mastodon profile for DefConPatch
    Mastodon profile for AskWoody

     

    Home • About • FAQ • Posts & Privacy • Forums • My Account
    Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts

    Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.