How to start a Userform when Word is started

dherr · #1 12-14-2014, 03:21 PM

Hi,

I tried some versions to start my Userform when Word starts.
When you start word, a new document opens and shows.
I tried to do:
Private Sub Document_New()
myForm.Show
End Sub
This works, when I start a new document and Word is open already, but works not when I start Word with this automatically created new document.
Which code starts the Userform in unison with Word itself?

Regards
Dietrich

Charles Kenyon · #2 12-14-2014, 03:34 PM

You might try adding the following code to your Normal.dotm. I usually keep such macros in a module called modAuto.

Code:

Public Sub AutoExec()
myForm.show
End Sub

The thing is that Word creates the document before it gets to your code. I am not sure whether or not that will be the case here as well but suspect it will work. This is supposed to run when Normal.dotm is loaded which is a separate event from the creation of the new document.

dherr · #3 12-14-2014, 03:47 PM

Thanks for the fast answer!
The code you show me, I have set this accurate into the module of normal.dotm. But it doesn't work.
I get the error message:
Runtime error. 4248
This order is not available, because no document is open.
What's to do?
Greetings-
Dietrich

Charles Kenyon · #4 12-14-2014, 04:30 PM

My understanding is that it is best to create a new form rather than show the basic one. I believe this is a method of saving memory.

Code:

Sub StartUserForm()
    Dim myNewForm As myForm
    Set myNewForm = New myForm
    myNewForm.Show
    Unload myNewForm
    Set myNewForm = Nothing
End Sub

Charles Kenyon · #5 12-14-2014, 04:39 PM

Quote:

Originally Posted by dherr

Thanks for the fast answer!
The code you show me, I have set this accurate into the module of normal.dotm. But it doesn't work.
I get the error message:
Runtime error. 4248
This order is not available, because no document is open.
What's to do?
Greetings-
Dietrich

Here is code to delay the execution of a macro for a given number of seconds.

Code:

Private Sub HaveABreak(iSeconds As Integer)
'
 ' Macro pauses running of procedure for given number of seconds
' Astrid Zeeland
' https://wordmvp.com/FAQs/MacrosVBA/ShowAllClippitAnimations.htm

 '
Dim lPauseTime As Long
Dim lStart As Long
  lPauseTime = iSeconds
  lStart = Timer 'get current time
  Do While Timer < lStart + lPauseTime
    DoEvents
  Loop
End Sub

Put this into the same module that would hold the AutoExec.

You would call it with HaveABreak (i) where i is the number of seconds you need to wait. Try it with 1. Insert the following into the AutoExec macro before the Show command:

HaveABreak(1)

dherr · #6 12-14-2014, 04:53 PM

Thank you very much for the ideas!
I will try it tomorrow and send you a feedback.

gmayor · #7 12-14-2014, 10:37 PM

Code:

Public Sub AutoExec()
myForm.show 
End Sub

will work to display a userform when Word starts, the problem is not the macro, but the userform, which undoubtedly contains code that relates to the non-existent active document, hence the error.

What is it that the userform is supposed to achieve when Word is started.

dherr · #8 12-15-2014, 03:16 AM

Hi Graham,
your idea was the right one.
I had in the UserForm_initialize this code: Set oDoc = ActiveDocument.
Now I have changed the programm into:
Delete this line of code but insert
Private Sub UserForm_Activate()
If oDoc Is Nothing Then Set oDoc = ActiveDocument
End Sub

Now all is working! Thank you and have a nice Christmas!
Dietrich (from Salzburg)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Getting started...	Annby	Project	3	11-06-2014 03:38 PM
VBA Code in a UserForm module to delete a Command Button which opens the userform	Simoninparis	Word VBA	2	09-21-2014 03:50 AM
Is it possible to take an input from a UserForm in one document to a UserForm in a do	BoringDavid	Word VBA	5	05-09-2014 09:08 AM
Page footers have started	ravl13	Word	3	11-21-2013 12:31 PM
Need Help Getting Started, Please. Thanks	ChunkyZergling	Outlook	1	04-24-2009 07:38 AM