delayed run of vba macros in microsoft word-CodePudding

How to intermittently run two macros in a module (two subprocesses) and we have a latency (wait time for example 700 seconds) to request user to change the position of cursor to the desirable location and then second macro will be run based on new position of cursor

CodePudding user response：

Sub Macro1()
    'code
    msgbox "You have 10 seconds after you close this to move your mouse."
    dim WhenToRun 
    whentorun = now   timeserial(0,0,10)
    do while now < whentorun
        doevents
    loop
    call Macro2
End Sub

Sub Macro2()
    'code
End Sub