Closing Word Document

[Guest]

I want to close a Word document and tried this code:


Set wordApp = GetObject(, "Word.Application")
Set WordDoc = wordApp.Documents.Open(file_name)
With wordApp

.Documents.Close

End With

How can I check wether the document is open? And how can I close only
the document, not all open word documents?

 

[RoyVidar]

jokobe wrote in message

I want to close a Word document and tried this code:


Set wordApp = GetObject(, "Word.Application")
Set WordDoc = wordApp.Documents.Open(file_name)
With wordApp

.Documents.Close

End With

How can I check wether the document is open? And how can I close only
the document, not all open word documents?

In stead of your with block, try

WordDoc.Close

To check whether a document (file) is open, you could probably loop the
documents collection.

for each oDoc in wordApp.Documents
if oDoc.Name = <name of document> then
' document is open
exit for
end if
next oDoc

 

[Guest]

Perfect answer.
Works now as intended.

Thanks for your quick hint.


Jokobe