<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2654.45">
<TITLE>RE: [AccessD] Is MSWord.exe running??</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=2>I modified this from code i use to close excel. It works but the line to save the word doc needs the correct syntax. HTH</FONT></P>
<P><FONT SIZE=2>Jim Hale</FONT>
</P>
<P><FONT SIZE=2>Function Word_is_running() As Boolean</FONT>
<BR><FONT SIZE=2>Dim appWord As Word.Application</FONT>
<BR><FONT SIZE=2>On Error Resume Next</FONT>
<BR><FONT SIZE=2>Set appWord = GetObject(, "Word.Application")</FONT>
<BR><FONT SIZE=2>Word_is_running = (Err.Number = 0)</FONT>
<BR><FONT SIZE=2>Set appWord = Nothing</FONT>
<BR><FONT SIZE=2>Err.Clear</FONT>
<BR><FONT SIZE=2>End Function</FONT>
<BR><FONT SIZE=2>Function CloseWord() As Boolean</FONT>
<BR><FONT SIZE=2>If Word_is_running = True Then</FONT>
<BR><FONT SIZE=2> Dim lngRetval As Long</FONT>
<BR><FONT SIZE=2>Dim appWord As Word.Application</FONT>
<BR><FONT SIZE=2> lngRetval = MsgBox( _</FONT>
<BR><FONT SIZE=2> "Can Word be closed so I can proceed? All changes will be saved.", _</FONT>
<BR><FONT SIZE=2> vbYesNo + vbExclamation + vbSystemModal + vbDefaultButton1, _</FONT>
<BR><FONT SIZE=2> "Close Word")</FONT>
</P>
<P><FONT SIZE=2> Select Case lngRetval</FONT>
<BR><FONT SIZE=2> Case vbYes</FONT>
<BR><FONT SIZE=2> </FONT>
<BR><FONT SIZE=2> On Error Resume Next</FONT>
<BR><FONT SIZE=2> Set appWord = GetObject(, "Word.Application")</FONT>
<BR><FONT SIZE=2> xlsClose appWord</FONT>
<BR><FONT SIZE=2> CloseWord = True</FONT>
<BR><FONT SIZE=2> Case vbNo</FONT>
<BR><FONT SIZE=2> CloseWord = False</FONT>
<BR><FONT SIZE=2> End Select</FONT>
<BR><FONT SIZE=2>Else</FONT>
<BR><FONT SIZE=2>CloseWord = True</FONT>
<BR><FONT SIZE=2>End If</FONT>
<BR><FONT SIZE=2>End Function</FONT>
</P>
<P><FONT SIZE=2>Sub xlsClose(appWord As Word.Application)</FONT>
<BR><FONT SIZE=2>On Error Resume Next</FONT>
<BR><FONT SIZE=2>appWord.DisplayAlerts = False</FONT>
<BR><FONT SIZE=2>'this syntax needs to be fixed:</FONT>
<BR><FONT SIZE=2>'appWord.Close SaveChanges:=True</FONT>
<BR><FONT SIZE=2>appWord.Quit</FONT>
<BR><FONT SIZE=2>Set appWord = Nothing</FONT>
<BR><FONT SIZE=2>Exit_xlsClose:</FONT>
<BR><FONT SIZE=2>Exit Sub</FONT>
<BR><FONT SIZE=2>End Sub</FONT>
</P>
<BR>
<P><FONT SIZE=2>Sub test()</FONT>
<BR><FONT SIZE=2>CloseWord</FONT>
<BR><FONT SIZE=2>End Sub</FONT>
</P>
<P><FONT SIZE=2>-----Original Message-----</FONT>
<BR><FONT SIZE=2>From: Selina Iddon [<A HREF="mailto:selina@easydatabases.com.au">mailto:selina@easydatabases.com.au</A>]</FONT>
<BR><FONT SIZE=2>Sent: Thursday, June 12, 2003 5:20 PM</FONT>
<BR><FONT SIZE=2>To: accessd@databaseadvisors.com</FONT>
<BR><FONT SIZE=2>Subject: [AccessD] Is MSWord.exe running??</FONT>
</P>
<BR>
<P><FONT SIZE=2>Good Morning Everyone</FONT>
</P>
<P><FONT SIZE=2>I have an application that silently opens MS Word, merges it, saves it etc,</FONT>
<BR><FONT SIZE=2>without the user sitting watching the whole flickering effect. Problem is</FONT>
<BR><FONT SIZE=2>if it errors, the Process is left running in the Task Manager, and the</FONT>
<BR><FONT SIZE=2>novice user has to restart the PC or go into Task Manager and End Task the</FONT>
<BR><FONT SIZE=2>process. (Otherwise it causes errors next time).</FONT>
</P>
<P><FONT SIZE=2>Can anyone please help me with code to 1. check if a MS Word process is</FONT>
<BR><FONT SIZE=2>running and 2. end it.</FONT>
</P>
<P><FONT SIZE=2>Thanks Heaps</FONT>
<BR><FONT SIZE=2>Selina</FONT>
</P>
<BR>
<P><FONT SIZE=2>_______________________________________________</FONT>
<BR><FONT SIZE=2>AccessD mailing list</FONT>
<BR><FONT SIZE=2>AccessD@databaseadvisors.com</FONT>
<BR><FONT SIZE=2><A HREF="http://databaseadvisors.com/mailman/listinfo/accessd" TARGET="_blank">http://databaseadvisors.com/mailman/listinfo/accessd</A></FONT>
<BR><FONT SIZE=2>Website: <A HREF="http://www.databaseadvisors.com" TARGET="_blank">http://www.databaseadvisors.com</A></FONT>
</P>
</BODY>
</HTML>