OLE Office 2007 in den Vordergrund bringen

[hoika]

Hallo #,

unter Office 2000/2003 reicht ein WordObject.Visible:= True,
um Word nach dem Erzeugen per OLE in den Vordergrund zu bringen.
Unter Office 2007 klappt das nicht.
Word ist immer im Hintergrund meines Programmes.

Im Netz findet man dazu auch keine Lösung,
das Problem ist aber bekannt.

Und nun ?
Komme ich vielleicht an das Fensterhandle ran ?
Dazu muss ich noch sagen, das Word auch normal (also zusätzlich) geöffnet sein kann,
es als 2 mal offen sein kann.


ein ratloser
Heiko

[Jumpy]

Zitat von hoika:

Hallo #,
Dazu muss ich noch sagen, das Word auch normal (also zusätzlich) geöffnet sein kann,
es als 2 mal offen sein kann.

Das WordObject ist ja ein Objekt vom Typ Word.Application. Damit kann man doch den Fensternamen ändern (um ihn von der anderen Word-Instanz zu unterscheiden) und dann mit den entprechenden API-Funktionen den Fensterhandle zu bekommen und mit (war es?) SetWindowPos das Fenster nach vorne holen.

Hier hab ich das in VBA mal mit Excel gemacht.

Code:

Public Declare Function ApiFindWindow Lib "user32" _
           Alias "FindWindowA" (ByVal lpClassName As Any, _
                               ByVal lpWindowName As String) As Long

Function GetHandle() As Long
  Dim OldCap As String
  OldCap = Application.Caption
  Application.Caption = "ABCDEFGHIJKLMNOP"
  GetHandle = ApiFindWindow("XLMAIN", Application.Caption)
  Application.Caption = OldCap
End Function

[fxfx]

Hallo

Könnte auch mit WordObject.Activate funktionieren.

Franz

[hoika]

Hallo,

Das Activate hatte ich schon probiert, keine Chance ...

mit dem Titel klappt es !!!

Einfach als Titel eine GUID genommen und NIL für ClassName.

aHandle:= FindWindow(NIL, PAnsiChar(sCap));
Danke !!!


Heiko