Error 5852 when stepping through revisions

kae0088 · #1 07-04-2023, 05:39 AM

The following code works on documents with a moderate number of revisions. But on a document with 7672 revisions is raises a 5852 error on the 3448th revision. There is nothing wrong with this revision and adding or deleting previous revisions just moves the stopping point to another revision.

Code:

Sub StepRevisions()
    Dim Rv As Revision
    For Each Rv In ActiveDocument.Revisions
         RvType = Rv.Type
    Next Rv
End Sub

There seems to be no way of trapping this error.

Furthermore, each time "For Each Rv In ...." is executed takes many seconds resulting in a very long processing time. One would expect that stepping through a collection would be fast.

Code:

For k=1 to RvMax
  Set  Rv = ActiveDocument.Revisions

takes even longer time.

Can anyone help me with these problems?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Revisions Sentences Word Count	Regev	Word VBA	1	01-31-2018 01:06 PM
How to open the Revisions pane?	billy8b8	PowerPoint	4	12-17-2014 04:22 PM
stepping through a conversation	BobbyAre	Outlook	1	04-29-2012 10:28 AM
Code Error - Hiding comments and revisions	silvrwoman	Word VBA	6	03-24-2012 10:15 PM
Why run-time is always different from stepping into the codes?	tinfanide	Excel Programming	1	03-04-2012 12:04 AM