Discussion :

[alexF]

Bonjour, je suis nouveau developur en Delphi, et je dois developper un programme dans lequel j'ouvre un document word dans lequel j'inser des donne qui proviennent d'une base de donnee (donnees de type alphanumerique)

je declare donc une variable de type string :

MotifSoin : string;


et voici ma procedure pour inserer le texte dans le document word :

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
msWord : Variant;

begin

MotifSoin := Form5.Tbl_SoinsMotif;
msWord := CreateOLEobject ('Word.Application');

msWord.documents.add ('C:\Documents and Settings\AFO\Mes documents\test.dot');
msWord.visible := True;
msWord:= unAssigned;

msWord.wordbasic.EditReplace(Find := '$$$DOC$$$',
Replace := MotifSoin,
ReplaceAll := 1);
end;

resultat a la compilation :

incompatible type : String and TStringField

Donc type incompatible merci....
que puis je faire pour eviter cela ? je suis assez debutant...

merci pour votre aide

[defluc]

Bonjour,

D'abord, si tu veux t'y retrouver avec clarté, une bonne indentification ne fera que du bien.
Ensuite, pourquoi l'instruction Unassigned à cet endroit ?

Enfin, j'utiliserais l'objet Ole Automation de Ms-Word plutôt que de faire un détour par WordBasic.

msWord.Selection.Find.Execute('$$$DOC$$$', MatchCase, MatchWholeWord,
EmptyParam, EmptyParam, EmptyParam, Forwrd, Wrap, EmptyParam,
ReplaceWith, MotifSoin);

[alexF]

c'est vrai que ca fonctionne mieux avec ta procedure (j'arrive a ajouter du text dans mon document word, mais seulement du text statique, je n'arrive toujours pas a ajouter mes données contenue dans ma base de données)

en fait le probleme se pose au meme endroit que tout a l'heure, c a d au niveau du type de donnees

msWord.Selection.Find.Execute('DOC', False, False, False, False, False,
True, wdFindContinue, False, Form5.Tbl_SoinsMotif, wdReplaceAll);

si je met Form5.Tbl_SoinsMotif tel quel, il n'accepte pas (type not allowed in variant dispatch call)
si je l'insert dans la variable, --> type incompatible (string and TStrinfField)

une idee ?

merci d avance

[defluc]

Essaie un transtypage
MotifSoin := Form5.Tbl_SoinsMotif.AsString;

[alexF]

super ca fonctionne.

entre temps j'avais reussi avec

MotifSoin := Form1.DBEdit3.Text;

mais c'est plus propore d'aller rechercer directement dans la bd...

je te remercie pour les infos
@+