Sub Example_HWND()
    ' Этот пример возвращает маркер (Hwnd) окна документа.
    ' Маркер может использоваться с запросами WindowsAPI,
    ' или с ActiveX компонентами, которые требуют маркер окна.
   
    ' Если нет никаких открытых документов, то выйдите
    If Documents.count = 0 Then
        MsgBox "Нет никаких открытых документов! "
        Exit Sub
    End If
    
    MsgBox "HWND активного документа: " & ActiveDocument.HWND
End Sub