Discussion :

[PaulR]

Je balaie une table contenant des bouts de texte au format RTF dans des champs BLOB. Je dois lire sélectivement la table et, pour les articles traités, copier dans un document word les différents paragraphes lus...

hé bin... je vois vraiment pas comment faire... Parce que si je fais (très bêtement, hein, on est d'accord ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Doc.Application.Selection.Text := tblParagraphes.FieldByName('LIBELLEFR').AsString;

Bin j'ai bien le contenu texte, genre :

{\rtf1\ansi\deff0{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}{\f1\fnil Tahoma;}}
\viewkind4\uc1\pard\lang1036\f0\fs20 r\'e9gime de pension compl\'e9mentaire\f1\fs16

Et bon, c'est pas exactement ça que je veux

Passer par un TDBRichEdit créé dynamiquement ? Mais encore...

Le trou complet...

Paul

[PaulR]

Bon, j'ai passé la nuit là-dessus, rogntudju...
Alors, un truc qui marche, mais qui est (je trouve) une monstruosité :

Je crée dynamiquement un TDBRichEdit, et je le rattache au datasource de la table que je suis en train de lire, à la bonne zone :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
   gtalc : TDBRichEdit;
begin
 (...) 
   gtalc := TDBRichEdit.Create(nil);
   gtalc.ParentWindow := Form1.Handle;
   gtalc.DataSource    := dsParagraphes;
   gtalc.DataField       := 'LIBELLEFR';
end;
 
// (GTCALC = "gros truc à la con" :lol: )

Puis, pour l'envoyer dans le document Word via mon OLEVariant, je passe par le presse-papier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
         gtalc.SelectAll;
         gtalc.CopyToClipboard;
         Doc.Application.Selection.PasteAndFormat(wdPasteDefault);

Bref, ça marche, mais je ne mets pas résolu parce que j'espère bien que quelqu'un connaît une méthode un peu plus élégante...

Paul