Convertir un document Word en RTF (2)

uses
ComObj, word2000 {ou Word97};

function ConvertDoc2Rtf( var FileName: string) : Boolean;
var
oWord: OleVariant;
oDoc: OleVariant;
begin
Result := False;
try
oWord := CreateOleObject('Word.Application');
except end;
oWord.Documents.Open(FileName);
oDoc := oWord.ActiveDocument;
FileName := ChangeFileExt(FileName, '.rtf');
oDoc.SaveAs(FileName,wdFormatRTF);
oWord.ActiveDocument.Close(EmptyParam, EmptyParam, EmptyParam);
oWord.Quit(EmptyParam, EmptyParam, EmptyParam);
oDoc := VarNull;
oWord := VarNull;
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sFileName:String;

begin
sFileName := 'd: est.doc';
if ConvertDoc2Rtf(sFileName) then
begin
ShowMessage('Word document has been converted to .rtf');
RichEdit1.Lines.LoadFromFile(sFileName);
end;
end;
Commentaire des internautes
avatar
RIJAPOTAK le 29/04/2011
PILOTAGE SCANNER (TWAIN-WIA), IPTC, EXIF, METADATA, ICC PROFILES, Développement des logiciels, Traitement d'image, Traitement en Batch d'image et Pdf
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour31/10/2004
VisualisationVu 1815 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur