WordApp Width einstellen

da_rul · Hält's aus hier Beiträge: 9

hey leute, ich bins mal wieder

brauch eure hilfe beim einstellen der breite des Wordapps, ich öffne es wiefolgt:

Delphi-Quelltext

1:
2:
3:

  Wordapp:=CreateOLEObject('Word.Application');
    Wordapp.Visible:=True;
    Wordapp.Documents.Open(Pfad+'\'+Dokumentname);

wie kann ich aber nun die Breite und die Höhe des Fensters einstellen?

lg, und danke schon im voraus!

Gerd Kayser · Verfasst: Fr 25.02.11 00:30

da_rul hat folgendes geschrieben :

wie kann ich aber nun die Breite und die Höhe des Fensters einstellen?

Das geht mit SetWindowPlacement. Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:

var
  Position : TWindowPlacement;
  Wnd      : HWnd;

Nach den Anweisungen zum Starten von Winword (also nach Deinen von Dir oben gezeigten Zeilen):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  Position.length := SizeOf(TWindowPlacement);
  Position.showCmd := sw_ShowNormal;
  Position.rcNormalPosition := Rect(200, 400, 1400, 900);
  Wnd :=  FindWindow('OpusApp', 'Microsoft Word');
  SetWindowPlacement(Wnd, Position);

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme