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)

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