<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Bericht</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff size=2>This
should do what you want</FONT></SPAN></DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff
size=2>Regards,</FONT></SPAN></DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff size=2><FONT
face=Arial size=2></FONT></FONT></SPAN> </DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff size=2><FONT
face=Arial size=2>Steve Goodhall<BR></FONT><FONT face=Arial size=2></FONT><FONT
face=Arial size=2>Senior Project Manager</FONT><FONT face=Arial
size=2><BR>Compuware Corporation </FONT><FONT face=Arial
size=2></DIV></FONT></FONT></SPAN>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=227114713-02082003></SPAN> </DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff size=2>Option
Compare Database<BR>Option Explicit</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff size=2>Sub
TestWordOne()<BR>Dim oWOrd As Word.Application, oDoc As Word.Document<BR>Set
oWOrd = New Word.Application<BR>oWOrd.Visible = True<BR>Set oDoc =
oWOrd.Documents.Add<BR>SJGMsgBox "Click on OK to save and close Word document",
vbOKOnly<BR>oDoc.SaveAs DBLocation & "testone.doc"<BR>oDoc.Close
False<BR>oWOrd.Quit False<BR>End Sub<BR></FONT></SPAN></DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff size=2>Sub
TestwordTwo()<BR>Dim oDoc As Word.Document</FONT></SPAN></DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff size=2>Set
oDoc = New Word.Document<BR>oDoc.Application.Visible = True<BR>SJGMsgBox "Click
on OK to save and close Word document", vbOKOnly<BR>oDoc.SaveAs DBLocation &
"testtwo.doc"</FONT></SPAN></DIV>
<DIV><SPAN class=227114713-02082003><FONT face=Arial color=#0000ff
size=2>oDoc.Application.Quit False</DIV>
<DIV>End Sub<BR></DIV>
<DIV>Function SJGMsgBox(sPrompt As String, Optional lButtons As Long = vbOK,
_<BR> Optional sTitle As String = "Steve Goodhall's Timed
Message Box", Optional lDelay = 0)<BR>Dim lResult As Long, oShell As
WshShell<BR>Set oShell = New WshShell<BR>lResult = oShell.PopUp(sPrompt, lDelay,
sTitle, lButtons)<BR>SJGMsgBox = lResult<BR>Set oShell = Nothing<BR>End
Function<BR></DIV>
<DIV>Function DBLocation() As String<BR>Dim sDBLoc As String, lPos As
Long<BR>sDBLoc = CurrentDb.Name<BR>lPos = InStrRev(sDBLoc, "\")<BR>sDBLoc =
Left(sDBLoc, lPos)<BR>DBLocation = sDBLoc<BR>End
Function<BR></DIV></FONT></SPAN>
<DIV><FONT face=Tahoma size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Michael
Brösdorf<BR><B>Sent:</B> Friday, August 01, 2003 9:33 AM<BR><B>To:</B> Access
Developers discussion and problem solving<BR><B>Subject:</B> [AccessD]
Access/Word Interaction<BR><BR></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff size=2>Dear
group,</FONT></SPAN></DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff size=2>I
have an Access application that creates a MS Word document and inserts some
text into it and makes it visible (so that users can start working with it
right away). </FONT></SPAN></DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff size=2>When
that process is finished I want to inform the user with a MsgBox.
</FONT></SPAN></DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff size=2>The
problem is, that this activates MS Access (my application), but I want the
Word-Dokument to stay active. </FONT></SPAN></DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff size=2>Is
there something like WordObj.application.Msgbox?</FONT></SPAN></DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff
size=2>TIA,</FONT></SPAN></DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=062092913-01082003><FONT face=Arial color=#0000ff
size=2>Michael</FONT></SPAN></DIV></BLOCKQUOTE></BODY></HTML>