Short loop takes no less than 12s to run, uses 25% CPU power!

alex100 · #1 10-17-2020, 02:54 AM

Do you have any idea about what might cause the loop below to take no less than 12 seconds to run?

Code:

Dim iRev As Long
For iRev = ActiveDocument.Range.Revisions.Count To 1 Step -1
    With ActiveDocument.Range.Revisions(iRev)
    End With
Next iRev

MsgBox ("Finally, the code has executed after 12 seconds...!")

The document has 100 revisions, and I'd like to point out that the 12s execution time is for the code above, as it is written! So, there are no other instructions, or properties to set inside the loop (that could understandably slow it down).

Moreover, the code uses 25% CPU power (winword.exe process).

I run it under Word 2016, on a Core 2 Quad 2.5 Ghz computer, and I'm using the code in a larger macro. All the other subroutines run very fast, except this one which takes so much time to execute. I made sure to test it in its own standalone subroutine to make sure it does not interfere with any other code.

Any idea about what might be the problem, or where I should look for a possible solution to speed it up? I guess it should run in well under a second.

Thank you!

Alex

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can i open a power point in design mode through a power point shoe	noora	PowerPoint	4	12-10-2019 12:18 AM
Google Docs Power Point Short cuts / Insert Image etc	Rado	PowerPoint	4	04-11-2014 03:50 AM
video loop lag in power point 2013	drwrath	PowerPoint	2	04-29-2013 05:53 PM
Microsoft Power Point 2004 to Office Power Point 2007	chuff	PowerPoint	0	03-20-2011 01:23 PM
mail merge takes and age	williebear	Outlook	1	05-27-2009 11:32 PM