Registriert seit: 25. Nov 2005
Ort: Werl, Iserlohn, Dortmund, Hagen
85 Beiträge
Delphi 2006 Professional
|
Re: Mit Word eine *.rtf öffnen und abspeichern unter *.doc
17. Aug 2006, 12:15
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 :)
if(copy_paste==false)
Programmierer=Hilflos;
|