vba check if any document is open

[Tornado1981]

Hi,
Is there a way to check if any (at least one) word document is open using vba?
Thank u.

 

[shg]

Maybe ...

Sub test()
    MsgBox NumDocsOpenInWord
End Sub

Function NumDocsOpenInWord() As Long
    On Error Resume Next
    NumDocsOpenInWord = GetObject(, "Word.Application").Documents.Count
End Function

 

[Tornado1981]

thank u

 

[shg]

u wlk