Extreme Veteran
Beiträge: 567
| Hallo,
Schau mal, ob folgendes funktioniert:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Dim hwnd As Long
hwnd = FindWindow("OpusApp", vbNullString)
If hwnd > 0 Then
SetForegroundWindow (hwnd)
end if
OpusApp ist der Name der Word-Applikation.
----- Gruss - Peter |