Specifying a Timeout for a Dialog Box
Sub dlg2() With Dialogs(wdDialogToolsOptions) .DefaultTab = wdDialogToolsOptionsTabUserInfo .show (15000) End With End Sub