Menu
I work with a lot of revisions in Word 2010 (multiple authors with track changes on). I'd like to create a way to accept all deletions in a document without accepting the insertions. I did some research and found a VBA script example that claimed to do this but it just gave me an error message. It was a couple weeks ago and I can't find the script or remember the error message.
Anyone know how to do this? Thanks in advance.
Found the code I was using and for some reason it's working now.
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
332
Accept or reject all changes Go to the Review tab. Do one of the following: Changes and do one of the following: In the Accept drop-down list, select Accept All Changes. In the Reject drop-down list, select Reject all Changes.
Tip: To accept or reject changes all at once, click the arrow on the Accept or Reject button, and then choose Accept All Changes or Reject All Changes.
Accept or reject all changes at once Place the pointer at the beginning of the document. To accept all changes, select Review, select the arrow below Accept, and then select Accept All Changes. To reject all changes, select Review, select the arrow below Reject, and then select Reject All Changes.
You could be more tidy if for :
With oChange
If .Type = wdRevisionDelete Then
.Accept
End If
End With
you were to say:
If oChange.Type = wdRevisionDelete Then oChange.Accept
62
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With
