Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#4

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

  Alt 17. Aug 2006, 11:10
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 ;
  Mit Zitat antworten Zitat