Word OLE - komplette Dokumente einfügen?

[Bummi]

Delphi-Quellcode:

uses ComObj;

const
  wdStory=6;


procedure TForm5.Button1Click(Sender: TObject);
var
 newDoc,newDocument:Variant;
 Data:Variant;
begin
   newDoc :=  CreateOleObject('Word.Application');
   newDoc.Visible := true;
   newDocument    :=  newDoc.Documents.Add();
   newDoc.Selection.EndKey(Unit:=wdStory);
   newDoc.Selection.InsertFile('C:\temp\Test.doc');
   newDoc.Selection.EndKey(Unit:=wdStory);
   newDoc.Selection.InsertFile('C:\temp\Test2.doc');

end;