Option Explicit
 
'USER32
Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
   ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
 
   'USER32
Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" ( _
   ByVal hwnd As Long, _
   ByVal lpString As String, _
   ByVal cch As Long) As Long
 
 
Public Sub GetWordInfo()
  Dim lHwnd As Long, lRet As Long, sBuf As String
 
  lHwnd = FindWindow("OpusApp", vbNullString)
 
  If lHwnd = 0 Then
    MsgBox "Keine aktive Session von Microsoft Word gefunden."
    Exit Sub
  End If
 
  sBuf = Space(255)
  lRet = GetWindowText(lHwnd, sBuf, Len(sBuf))
 
  sBuf = Left(sBuf, lRet)
 
  MsgBox "hWnd:" & vbTab & lHwnd & vbNewLine & "Titel:" & vbTab & sBuf
End Sub

Viel Spass,
R@lf