View Single Post
 
Old 10-17-2020, 04:21 AM
Boris_R Boris_R is offline Windows Vista Office 2010 32bit
Novice
 
Join Date: Oct 2015
Posts: 4
Boris_R is on a distinguished road
Default

Try

Code:
Dim iRev As Long, Revisions_Count As Long
Revisions_Count = ActiveDocument.Range.Revisions.Count
    For iRev = Revisions_Count To 1 Step -1
        With ActiveDocument.Range.Revisions(iRev)
        End With
    Next iRev
The property "ActiveDocument.Range.Revisions.Count" is evaluated once before entering the loop
In your code, this property is evaluated 100 times on each loop.
Reply With Quote