Сценарий Microsoft Word VBA для принятия всех удалений?

Я работаю с множеством изменений в Word 2010 (несколько авторов с отслеживанием изменений). Я хотел бы создать способ принимать все удаления в документе, не принимая вставки. Я провел небольшое исследование и нашел пример сценария VBA, который утверждал, что это делает, но он просто выдал мне сообщение об ошибке. Это было пару недель назад, и я не могу найти сценарий или вспомнить сообщение об ошибке.

Кто-нибудь знает, как это сделать? Заранее спасибо.

РЕШЕНИЕ:

Нашел код, который использовал, и почему-то теперь он работает.

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