da_rul - Do 24.02.11 22:05
Titel: WordApp Width einstellen
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 - 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:
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):
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); |