Получить окно

[Ципихович Эндрю]

Код Выделить Развернуть

' Получить активное окно с помощью ThisComponent.ActiveWindow
Sub GetActiveWindowExample()

    Dim Win As Object
    Set Win = ThisComponent.ActiveWindow
    MsgBox "Active window: " & Win.Name

End Sub

' Получить активное окно с помощью GetActiveWindow()
Sub GetActiveWindowExample2()

    Dim Win As Object
    Set Win = GetActiveWindow()
    MsgBox "Active window: " & Win.Name

End Sub

' Получить окно по имени с помощью GetWindowByName()
Sub GetWindowByNameExample()

    Dim Win As Object
    Set Win = GetWindowByName("MyWindow")
    MsgBox "Window name: " & Win.Name

End Subздравствуйте все три попытки не работают - гуглёж не помог, подскажите как правильно

[Ципихович Эндрю]

гуглёж не помог

это было вчера-то есть по чётным дням НЕ помогает, а по нечётным дням помогает))

Код Выделить Развернуть

Sub GetActiveWindowExample()
    Dim oDesktop As Object
    Dim oFrame As Object
   
    Set oDesktop = CreateUnoService("com.sun.star.frame.Desktop")
    Set oFrame = oDesktop.CurrentFrame
    MsgBox "Active window: " & oFrame.Title
End Sub