Accepting deletions only in track changes (2002/SP3)

Topic

New Reply

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

Replies

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

Many thanks – that works great.

Reply | Quote

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

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

Thanks again – works very well.

Reply | Quote