List all open Word docs and close specific docs

[AlexBeet]

I need to be able to find out the names of all open Word documents and close specific documents if they are open.
Some of the documents may be hidden.
The script would ideally work with both Word 97 and Word 2000 and be called from an Access 2000 database.
Is there an easy way to do this ?

Thanking you in advance.

 

[scking]

I believe you would have much better probability of a solution if you used the Word COM object rather than coded a solution in Access. Use the application object to determine the number of open documents.

Public Sub CloseAllWordDocs()

Dim adoc As Document
For Each adoc In Documents
aName = aName & adoc.Name & vbCr
adoc.Close
Next adoc
MsgBox aName

End Sub

Steve King Growth follows a healthy professional curiosity