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

Question

Я работаю с большим количеством ревизий в 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

Answer 1

Вы можете быть более аккуратным, если для:

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

Вы должны были сказать:

If oChange.Type = wdRevisionDelete Then oChange.Accept