Test if MS Word is open - how? 2

[MrPeds]

Hi,

I'd like to know if there is any way for my VB application to test if MS word is currently open - my code carries out some calculations that use word docs.

I'd basically like a function like:

Function isWordOpen() As Boolean

'if word is open return true, else return false.

End Function

Thanks,

MrPeds

 

[pvw]

Hi MrPeds

Here's the code to your question:

Function IsWordOpen() As Boolean
On Error Resume Next
Dim appWord As Object
Set appWord = GetObject(, "Word.Application&quot
If Err.Number = 429 Then
IsWordOpen = False
ElseIf Err.Number <> 0 Then
IsWordOpen = False
MsgBox &quot;GetObject Error&quot;
Else
IsWordOpen = True
Set appWord = Nothing
End If
On Error GoTo 0
End Function

Regards
Philipp

 

[MrPeds]

Perfect!

MrPeds

 

[Hypetia]

Another possible solution.

Private Declare Function FindWindow Lib &quot;user32&quot; Alias &quot;FindWindowA&quot; (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Function IsWordOpen() As Boolean
IsWordOpen = FindWindow(&quot;OpusApp&quot;, vbNullString)
End Function

Although it works, but I would suggest pvw's method. Because that is more smart.