Do you really want to close the document after 30 seconds, or do you
just want the userform to close then?

If it's just the userform, see
http://word.mvps.org/FAQs/Userforms/CreateASplashScreen.htm.

If it's the whole document, then set up the userform as in the
article, and change the AutoOpen macro to something like this:

Sub AutoOpen()
  userForm333.Show
  ActiveDocument.Close
End

and discard the testClose macro. The AutoOpen macro suspends on the
.Show call until the userform closes, and then the .Close statement
runs.

I wouldn't bother saving the document unless the userform contains
some code in the Userform_Initialize or Userform_Activate procedure
that could change the document's contents -- there's no chance for
anything else to have an effect that needs saving.

Another word of advice: don't bother putting any code after the .Close
statement. Because the macro is in the document instead of a template,
the .Close statement unloads the code from memory, so nothing after
that can get a chance to run.

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

Hi,

try showing the userform modeless, like:

Sub autoopen()
   Application.OnTime When:=Now + _
   TimeValue("00:00:03"), _
   Name:="TestClose"
   Load UserForm1 '?
   UserForm1.Show vbModeless
End Sub

Sub testClose()
   UserForm1.Hide  '?
   Unload UserForm1
   ActiveDocument.Save
   ActiveDocument.Close
End Sub

Lines commented by '? seem to be redundant.