Hi,
I have some code in which I run against a Word compare (redlines created by Word's Compare/Combine function) document. Some of the redlines Word makes aren't true redlines and I'd like to Reject these redlines to clean-up the document. I've setup a For Each loop to go through the Revisions collection looking for pairs of Insert/Delete. The script takes less than 30 seconds when I have this simple loop below:
When I add the following 'if' statement inside the loop to compare the current Revision with the next Revision, the script takes 30 minutes to run:Set xRevisions = worddoc.Revisions For Each xRev in xRevisions xRev.Range.Select Next
Is there a faster way to handle this? Seems like a huge difference.If xRevisions.Item(xRev.Index).Range.Fields.Count <> 0 or xRevisions.Item(xRev.Index + 1).Range.Fields.Count <> 0 Then x = x End If
Thanks,
Kevin