Тема: Вордвский документ выше IE
Нужно, чтобы окно приложения Word, а именно активноо документа должно оказаться поверх окна IE, делаю четырьмя способами, увы не получается, как же правильно????
То есть файл Тест.док в нём кнопка, нажал эту кнопку далее вводишь с клавы,например "Ф" должно выводится в файле Тест.док, как это сделать???
Sub Test1()
With CreateObject("InternetExplorer.Application")
.Navigate "http://mail.ru/"
While .ReadyState <> 4
DoEvents
Wend
.Visible = True
End With
AppActivate Application.Caption
End Sub
Sub Test2()
With CreateObject("InternetExplorer.Application")
.Navigate "http://mail.ru/"
While .ReadyState <> 4
DoEvents
Wend
.Visible = True
End With
Application.Tasks("Microsoft Word").Activate
End Sub
Sub Test3()
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://mail.ru/"
End With
AppActivate Application.Caption
End Sub
Sub Test4()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://mail.ru/"
End Sub