Application VisualBasic Script

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