Microsoft Word VBA script to accept all deletions?

Question

I work with a lot of revisions in Word 2010 (multiple authors with track changes on). I'd like to create a way to accept all deletions in a document without accepting the insertions. I did some research and found a VBA script example that claimed to do this but it just gave me an error message. It was a couple weeks ago and I can't find the script or remember the error message.

Anyone know how to do this? Thanks in advance.

SOLUTION:

Found the code I was using and for some reason it's working now.

Sub AcceptDeletion()
Dim oChange As Revision
For Each oChange In ActiveDocument.Revisions
  With oChange
   If .Type = wdRevisionDelete Then
     .Accept
   End If
  End With
Next oChange
End Sub

Answer 1

You could be more tidy if for :

With oChange
   If .Type = wdRevisionDelete Then
     .Accept
   End If
End With

you were to say:

If oChange.Type = wdRevisionDelete Then oChange.Accept