Hier ein Codefragment (damals noch Delphi 6).
Es wurde ein Worddocument mit Word geöffnet und als RTF gespeichert.
Auf dem Form liegen:
Delphi-Quellcode:
Word_App: TWordApplication;
Word_Doc: TWordDocument;
//die eigentliche Routine
try
Word_App.Connect;
except
ShowMessage('MS-Word scheint nicht installiert zu sein!');
Exit;
end;
// Word_App.Visible:=True;
try
Word_App.Documents.OpenOld(wDocFileOpenName,EmptyParam,EmptyParam,wdAddToRecent,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
Pause:=True;
Word_App.ActiveDocument.SaveAs(wRTFTempName,wdFormatRTF,EmptyParam,EmptyParam,
wdAddToRecent,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
finally
Word_App.ActiveDocument.Close(wdSaveChanges,EmptyParam,EmptyParam);
Word_App.Quit(wdSaveChanges);
Word_App.Disconnect;
end;
Vielleicht hilfts dir was, man müsste mal die ganzem Parameter erforschen.
Ich könnte mir vorstellen, dass es möglich ist, was du vorhast.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)