Microsoft Office Forums - View Single Post - Is there an 'Application.Wait' function in Word VBA?

gmaxey · 08-25-2024, 08:36 AM

Add the following at the module level:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Run the following as a demo:

Code:

Sub Demo()
Dim lngIndex As Long
  For lngIndex = 1 To 10
    Doze 500
  Next lngIndex
  MsgBox "Done"
End Sub

Sub Doze(ByVal lngPeriod As Long)
  DoEvents
  Sleep lngPeriod
End Sub