Форум » [x]Harbour » Как вывести окно Word на передний план? » Ответить
Как вывести окно Word на передний план?
Andrey: Проблема появилась на Word2010. До этого все нормально показывалось и сейчас показывает. Вот мой код: oWord := TOleAuto():New( "Word.Application" ) oDocs := oWord:Documents oDocs:Open( cFileDoc ) oActive := oWord:ActiveDocument oSelect := oWord:Selection oMarks := oActive:BookMarks oWord:Visible := .T. oWord:WindowState := 1 // Maximize oSelect:HomeKey(6) Что нужно сделать еще для Word2010 ?
Ответов - 24, стр:
1 2 All
fil: A видимость для word'a, перед загрузкой файла, случаем не фалсе ? oWrd:Visible:= .F.
Andrey: fil пишет: A видимость для word'a, перед загрузкой файла, случаем не фалсе ? Нет ! В самом начале темы я привел свой код, синеньким цветом... oWord:Visible := .T. Может там что добавить нужно ? И еще сделал добавление в функцию: HB_FUNC( MAXIMIZE ) { ShowWindow( (HWND) hb_parnl(1), SW_RESTORE ); ShowWindow( (HWND) hb_parnl(1), SW_MAXIMIZE ); }
fil: Синенький текст я видел. Там oWord:Visible := .T. устанавливается после открытия файла, а желательно перед. Возможно стоит сначала вывести Word на экран, а потом открывать файл
Andrey: Т.е. ставлю сразу за oWord := TOleAuto():New( "Word.Application" ) ?
полная версия страницы