ник: LAN
Имею в MSA процедуру, в которой создаю Word-объект WordApp, отрываю в нем doc-файл и говорю WordApp.Visible = True. Вижу на экране окно Word'a. И пускай себе висит, но мне нужно вернуться в окно MSA. Все это выглядит так:
Dim meHWND as long, WordApp As Object, Ret
meHWND = Application.hWndAccessApp ' запоминаю Hwnd Access'a
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "C:\MUSOR.DOC", , true
WordApp.Visible = True ' показываю открытый документ
Ret = ShowWindow(meHWND, 5) ' с помощью API активизирую окно Access
Ret = ShowWindow(meHWND, 3) ' с помощью API отображаю в развернутом виде
но вижу окно Word'a :(
Ret = 16 (> 0), т.е. ф-ция ShowWindow вроде бы отрабатывает правильно
Читаю по запомненному meHWND заголовок окна - то что надо
Где грабли?