1 Тема от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Тема: Вордвский документ выше 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

2 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: Вордвский документ выше IE

Вроде решил, форумчане, Ваше мнение??

Dim Страница As String
Страница = "http://mail.ru/"
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate (Страница)
Sleep 5555 'задержка, то есть пауза выражается в миллисекундах, 1000 миллисекунд это 1 секунда
Do While IE.readyState <> 4 'нужно писать <> 4, потому что это код, который показывает, что ВЭБ страница полностью загружена. Так написано в документации по ReadyState
DoEvents 'функция, позволяет Windows обрабатывать другие события, пока выполняется ваша программа, Events - события, Events - события
Loop
IE.Visible = True 'открывает, делает видимым Микрософт Интернет Эксплоер
Tasks(Application.Caption).Activate 'сделать активным документ Ворд
TakeFocusOnClick = False 'чтобы фокус оставался в документе Ворд, а не на кнопке в Панели задач
Selection.TypeText Text:="Конец"
'MsgBox "End"