Mit Word eine *.rtf öffnen und abspeichern unter *.doc

[binio]

Es lag am getActiveOLEObject

nun ist es:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
V:OleVariant;
Result:String;
begin
     V := CreateOleObject('Word.Application');
     V.Documents.open (FileName:='c:\test.rtf', ConfirmConversions:=False, Format:=wdOpenFormatAuto) ;
     V.ActiveDocument.SaveAs (FileName:='c:\test2.doc', FileFormat:=wdFormatText, AddToRecentFiles:=True) ;
     V.Quit;
end;

und so geht es :)