Acceptin Deletions

[TRM]

This is probably rather simple, but I haven't been able to figure it out yet.
I am interested in accepting just the deletions on a tracked document using
VBA!

THANKS!

 

[Helmut Weber]

Hi,
how about this one:
Dim oRvs As Revision
For Each oRvs In ActiveDocument.Revisions
If oRvs.Type = wdRevisionDelete Then
oRvs.Accept
End If
Next
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

 

[TRM]

That looks good to me, I'll try it - thanks for the input! I played around a
little, don't know why I didn't try that! I had used something like that
previously when I was working on a similar task! DUH!

Thanks again!