Check If Word Open

[DMT Dave]

Hi Guy's, I am trying to find a short piece of code to close a word document but checking that it is still open as the wdDoc is set to visible false

I am getting a debug on the bold line

   Dim wdApp As Word.Application
    Set wdApp = GetObject(, "Word.Application")
    If wdApp.ActiveDocument = "" Then
    DoCmd.CancelEvent
    Else
    wdApp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
   End If
   

[ranman256]

check with
wdApp.documents.count

if 0, then no docs are open.

To shutdown all of Word and all documents, just use
wdApp.Quit False

[Micron]

aside from the solution, which is fine if there's no chance of 2 or more documents being open, think about what wdApp.ActiveDocument is - an object.
It can't be compared to an empty string.