Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Word OLE - komplette Dokumente einfügen?

  Alt 2. Sep 2014, 13:00
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat