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

[Jelly]

Zitat von binio:

Meine Frage nun ... wie geht es weiter ?

Importier Dir als allererstes die Typbibliothek (Projekt->Typbibliothek importieren)... Aus der langen Liste wählst Du dann "Microsoft Word 11.0 Object Library (Version 8.3)" und dann "Unit anlegen". Das erzeugt Dir eine Unit namens Word_TLB. Darin enthalten sind alle Funktionen und Konstanten, die Du benötigts um über OLE das MS Word zu steuern.

Folgender Delphi Code sollte dann den VBA übersetzen:

Delphi-Quellcode:

uses word_tlb, comobj ;

procedure LoadAndSave ;
var 
  V : variant ;
begin
     V := GetActiveOleObject('Word.Application');
     V.Documents.open (FileName:='c:\test.rtf', ConfirmConversions:=False, Format:=wdOpenFormatAuto) ;
     V.ActiveDocument.SaveAs (FileName:='c:\test.doc', FileFormat:=wdFormatText, AddToRecentFiles:=True) ;
end ;