Einzelnen Beitrag anzeigen

Sergej_Molotov

Registriert seit: 18. Jul 2006
61 Beiträge
 
Delphi 11 Alexandria
 
#1

TWordApplication und Commandbar

  Alt 23. Jul 2008, 13:24
Hallo Zusammen,

ich hab da so ein gewisses Problem mit Word 2003 und der ActiveX Steuerung.

Programmablauf:
Word-Prozess wird mittel TWordApplication erzeugt bzw. gestartet
Word ist zur Zeit unsichtbar und nicht in der Windows-Taskleiste.

Dann:
Delphi-Quellcode:
aWord.MinimizeWindow;
aWord.Visible := true;
Das Word wird nun Minimiert und befindet sich nun sichtbar in der Taskleiste. Danach wird ein neues Worddokument auf Basis einer Vorlage erstellt.

Das Problem:
Wenn ich zum Abschluss, nach einer Reihe von weiteren Funktionen, das Word anzeigen will, sehe ich zwar den Text, aber nicht mehr die Menüleiste oder die Toolbar. Veränder ich das Fenster in der Größe z.B. mit der Maus, dann erscheint die Menüleiste.

Zur Zeit kann ich dieses Problem nur beseitigen, wenn ich für alle Commandbars folgende Aktion durchführe:

Delphi-Quellcode:
procedure RefreshMenuBar(aWord: TWordObject);
var
  index : Integer;
begin
  for index := 1 to aWord.Application.CommandBars.Count do
  begin
    aWord.Application.CommandBars.Item[index].Reset;
  end;
end;
Hat einer von euch auch mal dieses Problem festgestellt? Es scheint sich um einen Word-Bug zu handeln. Ich such nur eine gute Möglichkeit, die Menüleiste zu refreshen. Der oben gezeigte Aufruf dauert bei mir in der VM ca. 1 Sekunde. Bei allen anderen Word-Versionen habe ich diese Problem nicht.

Danke
Thomas
  Mit Zitat antworten Zitat