Hallo mmw,
ich habe den Beispiel etwas abgeändert, damit es bei mir läuft.
Delphi-Quellcode:
procedure TForm2.Button1.click(Sender: TOjekt);
Var
mytemplate: OleVariant;
myvisible: OleVariant;
newtemplate: OleVariant;
mydokumenttype: OleVariant;
begin
mytemplate := 'Normal';
newtemplate := False;
mydokumenttype := wdNewBlankDocument;
myvisible := True;
myword.connect;
myword.Visible := True;
myword.Documents.Add(mytemplate,newtemplate,mydokumenttype,myvisible);
myword.Selection.Font.Name := 'Courier New';
myword.Selection.Font.Size := 10;
myword.Selection.Font.Bold := 1;
myword.Selection.TypeText('Hello World');
end;
Wo könnte ich denn auf Querdruck umstellen?
Gruß
Alfred