Close Word Doc from Excel

[Dossfm0q]

How to close Word Document already Open from Excel, which not created by excel By VBA?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Thanks<o></o>

 

[Kenneth Hobson]

This only closes one instance. It will not close the application if a file is modified and not saved. If you need that, you need to decide whether to close and save or close and not save in document. Either way could cause problems.

Sub CloseWord()
  Dim app As Object
  On Error Resume Next
  Set app = GetObject(, "Word.Application")
  app.Quit
  Set app = Nothing
End Sub

 

[Dossfm0q]

It is working well
Thanks Too much.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>