passer du richedit à un document wordRésolu

Question

Bonjour,
Voila mon probleme.
Je developpe un logiciel médical dans lequel le médecin saisit dans un richedit du texte formaté, avec la possibilité d'utiliser les polices, les couleurs, l'indentation....
Je souhaite que ce texte soit imprimé sous Word..mais sans perdre les caractéristiques du texte (couleur, police...)
Quelqu'un sait-il comment faire transiter le texte.
J'ai deja utilisé le pilotage OLE à partir de delphi mais ce ne rapatrie que le texte.
Merci de votre aide

Ledoc

jmp77 · Accepted Answer

Salut.

Pourkoi tu n'utilises pas dans ce cas directement word pour saisir le texte en utlisant un composant TOleContainer. 

Ainsi la personne rélalise directement son document sous word.

Si tu veux dans les exemple de delphi (version 6 pour moi) tu en as un sympa :
C:\Program Files\Borland\Delphi6\Demos\ActiveX\OleCtnrs

Si tu n'as pas cette démo contact moi et je te l'enverai pas mail.

En esperant avoir pu t'aider.

Bonne prog,
JMP.

ledoc93 · Answer

Merci JMP77 de m'avoir répondu.
En fait je ne peux pas utiliser Word directement car je veux conserver le texte dans les données du patient. C'est pour ca que je passe par un DBRichedit.
J'ai trouvé la solution en bidouillant un peu, en passant par le presse papier. C'est pas très élégant mais ca fonctionne.
Il suffit de faire dans Delphi un Richedit.selectall puis copytoclipboard.
Ouvrir word par un execute suivi de l'extension /mNomDeLaMacro et dans la macro de word, mettre un selection.paste
Et le tour est joué.
Merci encore de ton aide
Ledoc

jmp77 · Answer

Et bien je suis heureux de savoir que tu as pu trouver et que ça fonctionne.

N'oublie pas de cliquer sur réponse acceptée pour fermer ta demande.

Bonne prog,
JMP.

cs_Delphiprog · Answer

LeDoc93, je ne comprends absolument pas ce qui t'arrive.
Je viens de vérifier en créant un texte, en le mettant en forme et en le sauvegardant (RichEidt.Lines.SaveToFile('nomdufichier.rtf'). La sauvegarde se fait bien au format RTF. Le texte rechargé sous Word fait apparaître la mise en page et les enrichisssements indiqués dans mon application Delphi.

Aurais-tu modifié quelque chose dans les propriétés du TRichEdit ? (propriété PlainText, par exemple)
Est-ce que tu manipules la propriété Text du TRichEdit quand tu fais la sauvegarde ?
Peux-tu nous donner le code réalisant la sauvegarde du contenu de ton TRichhEdit ?

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you

ledoc93 · Answer

Bonjour Delphiprog,
En réponse a ta question, voila la proc que j'utilisais... Avec une propriété Plaintext à True..

procedure TForm1.FormCreate(Sender: TObject);
var fichier : AnsiString;
     vbookmark,vbookmarks,vcontent : variant;
begin
  Word := CreateOleObject('Word.Application');
  word.visible:=true;
  fichier:='c:	emp	est.rtf';
  vwdocuments:=word.documents;
  vwdocument:=vwdocuments.Open(fichier);
  vbookmarks:=vwdocument.bookmarks;
  if vbookmarks.exists('signet1') then
    vbookmark:=vbookmarks.item('signet1');
  vbookmark.select;
  vcontent:=vbookmark.range;
  vcontent.insertafter(richedit1.Lines[0]+#13);
  vcontent.insertafter(richedit1.Lines[1]);
end;

Merci encore de votre aide a tous
Ledoc

cs_Delphiprog · Answer

Je demandais le code pour réaliser la sauvegarde du contenu du composant TRichEdit utilisé.
Mais si tout est rentré dans l'ordre, alors ce n'est plus nécessaire.
Bonne continuation à tous les deux.
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you

Passer du richedit à un document word

6 réponses

Votre réponse

Discussions similaires