You may have seen this problem when working with Microsoft Word or Excel. You close all the objects, try to run another process and you still get an error message or Notes freezes. How do you shut down all instances of the WINWORD.EXE without going into the Task Manager? The answer is very simple -- use the GetObject method to retrieve the object, "Word.Application." If the object exists, then do not create a new instance. Create a dummy Word document (example: TempDoc.doc) and save it under the C:Temp directory. In order to close the instance of WINWORD.EXE, you may want to open this document and then close all the objects. See the code below. I am using this code to ensure all my COM objects are closed before I create a new object.
Dim WordApp As Variant
Dim WordDoc As Variant
Dim FileName As String
Set WordApp = GetObject(, "Word.Application")
If WordApp Is Nothing Then
'Set WordApp = CreateObject
("Word.Application")
Print "Word is not running"
Else
Print "Word is already running"
'Open a Dummy Document
FileName = "C:\Temp\TempDoc.doc"
Set WordDoc =
WordApp.Documents.Open(FileName)
WordApp.Visible = False
WordDoc.Close(0)
WordApp.Quit
Set WordApp = Nothing
End If
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member Kiritharan Kurukkal. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.
This was first published in October 2004