wps宏问题

[wei_jianmin]

各位大侠，我在wps中建立了一个宏，宏中用了延时函数，过程大概是跳转到第1页→延时1s→跳转到第2页→延时1s→……，运行后发现页面不是一页页跳转的，而是若干秒后直接一步跳到最后一页，请问这是什么情况？
使用的延时函数代码如下：
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
'延时
Public Sub Delay(ByVal num As Integer)
Dim t As Long
t = timeGetTime
Do Until timeGetTime - t >= num * 1000
DoEvents
Loop
End Sub

[wei_jianmin]

没有人看到吗？帮忙解释一下啊

[wei_jianmin]

换了另一种延时方法，问题解决了 Public Sub Delayms(lngTime As Long) Dim StartTime As Single Dim CostTime As Single StartTime = Timer Do While (Timer - StartTime) * 1000 < lngTime DoEvents Loop End Sub