Procedure to detect a running application and to register it.

[Guest]

I have the following Procedure:

Sub DetectExcel()
Const WM_USER = 1024
Dim hWnd As Long
hWnd = FindWindow("XLMAIN", 0)
If hWnd = 0 Then
Exit Sub
Else
SendMessage hWnd, WM_USER + 18, 0, 0
End If
End Sub

Obviously this applies to Excel. How do I accomplish the same thing but to
Microsoft Word?

Thanks,
Bill

 

[Trevor Shuttleworth]

The question doesn't seem a lot different to when you asked it three minutes
previously under a different name. Nevertheless, it might have more success
in a Word Group

Regards

Trevor