Discussion :

[plante20100]

Bonjour à tous,

Voila je vous expose mon problème : je construit un document word via delphi par une liaison OLE, et je souhaiterais copier le contenu d'un richEdit dans ce document pour en faire un paragraphe.

Je sais que ce sujet a déja été abordé mainte et mainte faois, mais les solutions qui sont proposées consistent essentiellement à copier le texte formater dans un nouveau document (c'est du moins ce que j'en ai compris), alors que moi je souhaiterais le faire apparaitre au milieu d'un doc déja existant. Je ne peux donc pas utiliser quelque chose du genre

Code :

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

RichEdit.Lines.SaveToFile

Voila merci d'avance pour vos suggestions

Vince

[plante20100]

Mon sujet ne semble pas inspirer beaucoup de monde.
Pour l'instant la solution que j'ai trouvé consiste à enregistrer le texte formaté dans un doc word

Code :

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

RichEdit.Lines.SaveToFile

puis de couper cette ligne et de la coller dans l'autre doc word que je construit....
Vous serez d'accord pour admettre que ce n'est pas vraiment une solution optimisée.... Donc si quelqu'un d'autre en a une autre à proposer il est le bienvenu

Merci d'avance

Vince

[Laurent Dardenne]

Salut,
regarde cette piste, elle utilise l'interface IDataObject mais je n'ai pas eu le temps de vérifier.

[plante20100]

Merci beaucoup je vais regarder.

Vince

[plante20100]

Salut,
Alors j'ai essayé la piste que tu m'as soumise. Au départ il me faisait une erreur du style : mémoire insuffisante. J'ai regardé de plus près la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
while (not Found) and (Formats.Next(1, TempFormat, nil) = S_OK) do
    begin
      pFormatName := AllocMem(255);
      GetClipBoardFormatName(TempFormat.cfFormat, pFormatName, 254);
      if (string(pFormatName) = 'Rich Text Format') then
      begin
        RTFFormat := TempFormat;
        Found := True;
      end;
      FreeMem(pFormatName);
    end;

qui se trouve dans la fonction

Code :

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

GetRTFFormat

et en fait il ne remplissait jamais la condition :

Code :

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

if (string(pFormatName) = 'Rich Text Format')

En ragardant les valuers que prend pFormatName j'ai remarqué qu'il y avait Format Texte riche j'ai donc modifié le code en concéquence mais maintenant il me dit :

FORMATECT non valide

C'est bete ca a tout l'air d'etre une erreur du à la langue utilisée...
Est ce que quelqu'un a une idée ou une piste pour faire fonctionner ce code?

Merci d'avance

Vince

[Laurent Dardenne]

Dans ce cas utilise directement les fonctions du presse-papier de Delphi et de Word (GetFromClipboard).

[plante20100]

Salut,

Bon je viens de tester la méthode que tu préconises :

Code :

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

1
2
RichEditTampon.CopyToClipboard;
                    Word.selection.GetFromClipboard;

Et j'obtiens une erreur :

La méthode getfromClipboard n'est pas supportée par l'objet automation

...
Je continu sur cette piste.
Si quelqu'un a une idée pour régler l'erreur, il est le bienvenu.

Merci d'avance

vince

[plante20100]

Yahooooooooo!!! ca marche.

Code :

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

1
2
3
4
 
RichEditTampon.SelectAll;
RichEditTampon.CopyToClipboard;
Word.selection.paste;

Tout simplement.

Merci Laurent Dardenne pour ton aide

Vince