Word OLE - komplette Dokumente einfügen?

[fillibuster]

Hallo,

ist es möglich über OLE ein oder mehrere Word Dokument(e) in ein neues Word Dokument einzufügen? Also per OLE neues Word Dokument erstellen und dann einzelne Word Dokumente direkt an der Cursorposition hintereinander einzufügen?

Viele Grüße ...

[Sir Rufo]

Geht das mit Word selber?

Wenn ja, dann zeichne die Aktionen auf und übertrage die nach Delphi.
(Mit OLE wird einfach nur das Programm ferngesteuert)

[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;

[fillibuster]

Danke euch! :thumb: