Как получить хендл окна?

[Ruslan Demidow]

Есть Word, запускаю его так (пишу по памяти)

Код: Выделить всё

Dim oWord as Object
Set oWord=CreateObject("Word.Application")


Как теперь получить хендл окна oWord?

[Leon_]

Код: Выделить всё

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim nHwnd   As Long
Dim lpClassName     As String
Dim lpWindowName    As String

lpClassName = "OpusApp"
nHwnd = FindWindow(lpClassName, lpWindowName)


nHwnd и будет содержать Handle окна Word.

[Ruslan Demidow]

Ок. Спасибо.