Question

我在Word 2010中进行了大量修订（多个作者修改了跟踪）。我想创建一种方法来接受文档中的所有删除而不接受插入。我做了一些研究，发现了一个VBA脚本示例声称这样做，但它只是给了我一个错误消息。这是几个星期前，我找不到脚本或记住错误消息。

任何人都知道如何做到这一点？提前谢谢。

SOLUTION：

找到我正在使用的代码，由于某种原因它现在正在运行。

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

Answer 2

上面的脚本不断向我抛出“对象已被删除”错误，因为在循环过程中修改了集合。这个对我有用：

Sub AcceptDeletions()
Dim oChange As Revision
For i = ActiveDocument.Revisions.Count To 1 Step -1
If ActiveDocument.Revisions(i).Type = wdRevisionDelete Then
ActiveDocument.Revisions(i).Accept
End If
Next i
End Sub

Microsoft Word VBA脚本接受所有删除？

SOLUTION：

2 个答案: