Ouvrir un fichier .rtf ou doc

Comment ouvrir à l'aide d'un menu, dans un richedit ou mémo, un fichier précis du genre

C:\machin.rtf

Merci beaucoup, j'ai beau chercher je ne trouve pas

Pour ouvir un RTF dans un TRichEdit, il faut simplement utiliser sa procedure LoadFromFile !!

RichEdit1.lines.LoadFromFile('c:\machin.rtf');

Allez, bonne prog...

Dans le titre vous avez demander comment ouvrir un fichier DOc aussi => Winword(Mot clé pour la recherche)
Donc voici un bout de code :

procedure btnmodifmodeleClick(Sender: TObject);
var
OleFileName, indVar, typeDoc, wdFormat: Olevariant;
begin
inherited;

wdFormat := wdOpenFormatAuto; // Type
OleFileName:= 'C:\Template Rapport\test.dot' ; //=>c:\machin.doc
WordApplication.Visible := true ; /=> Visible
WordApplication.Documents.Open(OleFileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication.OnQuit := WordApplicationQuit;
end;


_______=-Jobtunisie-=_______
ALLAH'O AKBAR, LE ILLEHA ILLA ALLAH

Merci pour les réponses

Salut jobtunisieyasser,

Le petit bout de code que tu a mis, est-ce que le document (.doc) va ouvrir dans Word?

Merci! a+

MAsterC - Power Of Dream.
Site Internet!

si
WordApplication.Visible := true ;
alors Word va être visible
sinon
WordApplication.Visible := false;
pour le cacher.
et tu pourrait récuperer le text qu'il contient.
et avec cette maniére on récupére un text dans un .Doc
------------------------------ Exemple
OleFileName:=dialog.FileName ;
WordApplication.Documents.Open(OleFileName,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

memo.Text:= WordApplication.ActiveDocument.Sections.First.range.Text ;
---------------------->

_______=-Jobtunisie-=_______
ALLAH'O AKBAR, LE ILLEHA ILLA ALLAH

Merci pour les réponses.
en ce qui concerne l'ouverture d'un .doc, j'ai essayé l'exemple et je n'arrive pas à compiler.
Comment déclarer dans type :
wdOpenFormatAuto

Un exemple tout fait serais le beine venu

merci

Fostex

var OleFileName : Olevariant;
// Paramêtre
if dialog.Execute= true then
BEGIN

OleFileName:=dialog.FileName ;
WordApplication.Documents.Open(OleFileName,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

memo.Text:= WordApplication.ActiveDocument.Sections.First.range.Text ;

WordApplication.Quit ;

end ;
////////------------------------
Tu ajoute dans les uses l'unité de Word
dans mon exemple uses word97;
et si tu ne l'as pas alors fait
Projet -> Importer une unité ->
Choisie de la liste: Microsoft Word -> Cliquez Créer l'unité .
Vous aurez le nom de l'unité
ajoutéz le dans uses
//// -> Essaye un peu et tu ne comprend pas
demande le moi encore
Je serait heureux de vous le répondre.
Merci et n'oublie pas
de liree la signature.
_______=-Jobtunisie-=_______
..... ALLAH'O AKBAR, LE ILLEHA ILLA ALLAH.....

Je n'y arrive pas

Décourageant....

Explique encore ton probléme
Donne nous le message d'érreur ..???????????????
t'as Word dans ta machine

_______=-Jobtunisie-=_______
ALLAH'O AKBAR, LE ILLEHA ILLA ALLAH