Microsoft Office Forums - View Single Post - [Solved] Short loop takes no less than 12s to run, uses 25% CPU power!

Boris_R · 10-17-2020, 04:21 AM

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.