VBA: активировать окно Word-а

Формулировка задачи:

Из Excel генерирую Word-документ
Попытки его активировать после генерации пока не увенчались успехом
Делаю так:

Private Declare PtrSafe Function SetForegroundWindow Lib "User32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetFocus Lib "User32" (ByVal hwnd As LongPtr)

  H = FindWindow("OpusApp", "")
  Call SetForegroundWindow(H)
  Call SetFocus(H)

Хендл валидный

Решение задачи: «VBA: активировать окно Word-а»

textual
                            Листинг программы 
                        
                            AppActivate "Microsoft Word"