Как макросом установить фокус на текущий документ?

Question

[Надим]

Никак не могу передать фокус в документ из которого запущен макрос, т. е. необходимо принудительно вернуть фокус в покинутый документ, после того макрос завершит работу. Пробовал по разному, но ни один из вариантов не сработал:

ThisDocument.Activate
ThisDocumnet.SetFocus
Documents(ThisDocument.Name).Activate

Искал в сети, ничего рабочего не нашел. Может кто-нибудь знает решение проблемы?

spoiler

В крайнем случае, чтобы сфокусировать юзера, я бы мог автоматически закрыть все документы кроме текущего, но мне это решение не нравиться, так как тогда получается фактически я за юзера сохранил все документы с которыми он параллельно работал, а вдруг какие-то не надо было сохранять? Короче, не вариант.

Answer 1

[Иван]

Sub Activate()

  Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  Dim wdDocTwo As Word.Document

  Set wdApp = CreateObject("word.Application")
  wdApp.Visible = True
  Set wdDoc = ThisDocument
  Set wdDocTwo = wdApp.Documents.Add


  wdDocTwo.Activate 'активация окна( но не выводит на передний план)
  AppActivate (wdDocTwo.Name)' выведет окно wdDocTwo на передний план
End Sub

Comments

[Надим]

Мне нужна активация именно ThisDocument, а не активация новых созданных / открытых документов. Но увы ThisDocument.Activate нихрена не переключает.

[Иван]

Надим Закиров,
Set wdDoc = ThisDocument
а потом Activate

[Надим]

Иван, хм... а почему сразу нельзя?

[Иван]

Надим Закиров, я весь ваш код не видел чтобы точно сказать.

ThisDocument.Activate
ThisDocumnet.SetFocus

так вообще в VBA не пишите.
явная запись ссылок на объект в переменную- это хорошая практика.

[Надим]

Иван, спасибо за помощь, но фокус не переключается, увы - хоть по вашему, хоть по моему. Activate не работает, если ты в это время находишься в другом Word-документе. Значит буду искать другие варианты. Например, попробую свернуть все остальные открытые вордовские документы, может хоть тогда норм будет.

[Иван]

Надим Закиров, весь код покажите. вы что то не то делаете просто.

[Надим]

Иван,

Private Sub Document_Open()
    Set wdDoc = ThisDocument
    wdDoc.Activate
End Sub

Это код запихан в шаблон, а шаблон подключен в документ. Если я открываю документ, а потом еще один и после этого жму Включить содержимое, этот код отрабатывает и должен в теории вернуть фокус к первому открытому документу, но этого не происходит.

В том, что код выполняется уверен, проверял через MsgBox + пробовал написать текст через ThisDocument.Range - все было норм. Иными словами команда на активацию проходит, но переключения фокуса не происходит.

[Иван]

"в теории" которую не плохо сперва прочитать и понять.
ThisDocument - это то откуда был вызван код.
и вы написали не так как в моем примере.

Sub test()

  Dim wdApp As Object
  Dim wdDoc As Word.Document
  Dim wdDocTwo As Word.Document
  Dim wdDocThree As Word.Document
  Dim wdDocFour As Word.Document

  Set wdApp = CreateObject("word.Application")
  wdApp.Visible = True
  Set wdDoc = ThisDocument
  Set wdDocTwo = wdApp.Documents.Add
  Set wdDocThree = wdApp.Documents.Add
  Set wdDocFour = wdApp.Documents.Add

  wdDocTwo.Activate

End Sub

[Надим]

Иван, аналогично) Этот код открыл у меня 3 страницы подряд и все фоном. Фокус при этом так и не поменялся, т. е. он должен был вернутся к документу в котором выполняется макрос, но этого не произошло.

[Иван]

скрипт возвращается к wdDocTwo и курсор печати текста будет там.
возможно вы ожидаете что окно документа будет поверх всех остальных окон (других приложений) так этого не произойдет.

[Надим]

Иван, да именно этого я и ожидал, что окно от ThisDocument перекроет все другие и выйдет вверх, т. е. получит фокус. А не знаете случаем все таки сделать именно перекрытие других ворд-окон? По идее, я могу закрыть и открыть документ заново, но это все как то не элегантно. Хотя опять же повторное открытие не факт что покажет документ сверху остальных.

[Иван]

возможно вы ищете это

Sub test()

  Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  Dim wdDocTwo As Word.Document
  Dim wdDocThree As Word.Document
  Dim wdDocFour As Word.Document

  Set wdApp = CreateObject("word.Application")
  wdApp.Visible = True
  Set wdDoc = ThisDocument
  Set wdDocTwo = wdApp.Documents.Add
  Set wdDocThree = wdApp.Documents.Add
  Set wdDocFour = wdApp.Documents.Add

  wdDocTwo.Activate
  AppActivate (wdDocTwo.Name)' эта строка выведет окно wdDocTwo на передний план

End Sub

[Надим]

Иван, AppActivate работает, спасибо). Плюс я вообще оказывается копал не туда. У меня ThisDocument ссылается не на документ, а на шаблон который я подцепил к документу, оттуда у меня и проблемы. Попытаюсь теперь выяснить, как из шаблона получить ссылку на документ куда шаблон подцеплен.

[Иван]

про ThisDocument я же писал выше...
поправил ответ изначальный - пометьте как решение.

[Надим]

Иван, да, еще раз спасибо. Очевидно, мне надо будет перебрать все открытые документы среди которых найти нужный и переключить его вверх, так как ThisDocument у меня возвращает ссылку на шаблон, а отнюдь не на нужный мне документ, а я этого и не знал. Отметил ваш ответ, как решение)