Получение фокуса приложения

' определить hwnd Рабочего стола
Declare Function GetDesktopWindow& Lib 'user32' ()
' узнать hwnd окна относительно указанного hwnd
Declare Function GetWindow& Lib 'user32' (ByVal hwnd As Long, ByVal wCmd As Long)
' прочитать заголовок окна
Declare Function GetWindowText& Lib 'user32' Alias 'GetWindowTextA' (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long)
' отправить сообщение окну (использую при добавлени шрифта)
Declare Function SetFocusAPI& Lib 'user32' Alias 'SetFocus' (ByVal hwnd As Long)
 
Sub Test()
Dim hwnd As Long, strWindowTitle As String
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
 
' поиск нужного окна по тексту в заголовке окна
    strWindowTitle = 'Microsoft Word - Документ1'
    hwnd = FindWindow(strWindowTitle)
    If hwnd <> 0 Then
        ShowWindow& hwnd, SW_HIDE
        ShowWindow& hwnd, SW_SHOWMAXIMIZED
        SetFocusAPI hwnd
    Else
        MsgBox 'Окно ''' & strWindowTitle & ''' не найдено'
    End If
End Sub
 
Public Function FindWindow(TitleFind As String) As Long
Dim WinTitle As String * 256, cnt  As Long, hwnd As Long
Const GW_HWNDNEXT = 2   ' следующее окно
Const GW_CHILD = 5      ' Child-окно для окна, указанного в hwnd
 
    hwnd = GetDesktopWindow&                ' поиск окна начать с Рабочего стола
    hwnd = GetWindow(hwnd, GW_CHILD)        ' все остальные окна для него - Child
    Do While hwnd <> 0
        cnt = GetWindowText(hwnd, WinTitle, 255)
        If InStr(1, WinTitle, TitleFind) = 1 Then
            FindWindow = hwnd
            Exit Do
        End If
        hwnd = GetWindow(hwnd, GW_HWNDNEXT) ' следующее окно
    Loop
End Function