VBA for Word 2010 to accept only changes marked as a "move" RRS feed

  • Question

  • I'm a relative VBA novice in need of a macro to accept all changes marked as "moves" (default appearance is green).  I have a 600+ page document with extensive edits and I need to show only insertions and deletions that are not "moves".  Doing this manually is painful.  Any thoughts?
    Saturday, February 22, 2014 10:14 PM


  • You could use a macro like:

    Sub Demo()
    Application.ScreenUpdating = False
    Dim i As Long
    With ActiveDocument
      For i = .Revisions.Count To 1 Step -1
        With .Revisions(i)
          If .Type = wdRevisionMovedFrom Then .Accept
          If .Type = wdRevisionMovedTo Then .Accept
        End With
    End With
    Application.ScreenUpdating = True
    End Sub

    For installation & usage instructions, see:

    Paul Edstein
    [MS MVP - Word]

    Sunday, February 23, 2014 3:52 AM