Zitat von
Keldorn:
das eine Dokument öffnen, den cursor ans ende setzen und dann "Word menu: einfügen->Datei" dann wird die ausgewählte Datei eingefügt.
Das sieht etwa so aus.
Delphi-Quellcode:
function MSWord_InsertFile(const FileName: string): Boolean;
var
Word: OLEVariant;
begin
// Referenz auf die IDispatch-Schnittstelle des aktiven Word-Objekts
// ermitteln
try
Word := CreateOleObject('Word.Application');
except
// Fehler aufgetreten
Exit;
end;
// Dokument öffnen
...
....
// Datei einfügen
Word.Selection.InsertFile(FileName);
Word := Unassigned;
end;