Timed Splash Screen for Word

    Good Morning: I Have the following code in Excel to unload a userform I'm using as a splash screen:

    Code
    Application.Wait Now + TimeValue("00:00:04")


    What would the code be to do the same in Word? I tried using the same code but I get an error message.
    Thanks
    abbeville

    Re: Timed Splash Screen for Word


    Hi,


    I had to make the userform ShowModal = False before it would work.
    This code in a standard module[vba]Sub KillSplash()
    Unload UserForm1
    End Sub
    Sub ShowSplash()
    UserForm1.Show
    End Sub[/vba]This in the Userform[vba]Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:04"), "KillSplash"
    End Sub[/vba]This in the ThisDocument module[vba]Private Sub Document_Open()
    ShowSplash
    End Sub[/vba]

    [h4]Cheers
    Andy    [/h4]

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login