Kill/Close that open file

[Dave]

Trying to get rid of an open Word file from XL. Can this be done? Dave
edit: I should add that XL didn't open it to begin with.

[Killian]

Hi Dave,
Here's a routine that will do that. I'm testing for a specific file here so I guess you will need to change the name.


Sub CloseWordFile()
Dim objWordApp, d
On Error GoTo errortrap
'attempt to get an existing running copy of Word
Set objWordApp = GetObject(, "Word.Application")
'close the specified document
For Each d In objWordApp.Documents
If d.Name = "Test.doc" Then d.Close
Next
Exit Sub
errortrap:
'an error will occur if Word is not open
'just exit here or display a message
End Sub

or you can get rid of the If.. Then and use d.Close to close them all and objWordApp.Quit close Word

[Dave]

Many thanks Killian. I was missing the Getobject line of code. I still can't seem to get rid of the word application. I'm using the following code which does close the document but Word keeps running and I can't figure out how to get rid of it. Any suggestions? Dave
ps. Sorry re. format. I can't seem to access XL on this computer?

Set Objwordapp = GetObject(filepath)
With Objwordapp
.Close
End With
Set Objwordapp = Nothing

[Zack Barresse]

Dave, couldn't you use ...


Objwordapp.Quit

.. to close the Application?

[Dave]

Thanks Zack but that just wouldn't work for me. I solved this with the following code. I'll try the tags. Dave

Set Objwordapp= Getobject(,"Word.application")
With Objwordapp
.Application.Quit
End With
Set Objwordapp = Nothing
edit: spelling