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

如果对于以下内容，您可能会更加整洁：

随着 oChange
   如果 .Type = wdRevisionDelete 那么
     。接受
   万一
结束于

你要说：

如果 oChange.Type = wdRevisionDelete 则 oChange.Accept