小编Tot*_*ote的帖子

我在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