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

macropod · #5 10-17-2020, 09:21 PM

With Word 2010 on my laptop, using:

Code:

Sub Test()
' Dimension Variables
Dim eTime As Single, Rvn As Revision, i As Long
' Start Timing
eTime = Timer
With ActiveDocument.Range
  For Each Rvn In .Revisions
    With Rvn
    End With
  Next
  ' Calculate elapsed time
  eTime = (Timer - eTime + 86400) Mod 86400 ' Just in case execution time spans midnight
  MsgBox "Execution took " & Format(eTime / 86400, "hh:mm:ss")
  ' Start Timing
  eTime = Timer
  For i = 1 To .Revisions.Count
    With .Revisions(i)
    End With
  Next
  ' Calculate elapsed time
  eTime = (Timer - eTime + 86400) Mod 86400 ' Just in case execution time spans midnight
  MsgBox "Execution took " & Format(eTime / 86400, "hh:mm:ss")
  ' Start Timing
  eTime = Timer
  For i = .Revisions.Count To 1 Step -1
    With .Revisions(i)
    End With
  Next
  ' Calculate elapsed time
  eTime = (Timer - eTime + 86400) Mod 86400 ' Just in case execution time spans midnight
  MsgBox "Execution took " & Format(eTime / 86400, "hh:mm:ss")
End With
End Sub

the first loop took less than 1 second, the next two took about 1 second each.

Note: It's hardly surprising that a VBA routine might use about 25% (and no more) of a quad-core CPU's capacity.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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