vba - 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

最佳答案

如果您适合以下情况，则可能会更整洁:

使用oChange
如果.Type = wdRevisionDelete，则
。接受
万一
结束于

你是说:

如果oChange.Type = wdRevisionDelete，则oChange.Accept