Sub dlg2() With Dialogs(wdDialogToolsOptions) .DefaultTab = wdDialogToolsOptionsTabUserInfo .show (15000) End With End Sub