remplacer des mot en utilisant file input et

[faamugol]

Bonjour,

Je voudrais depuis excel (VBA), ouvrir un fuchier un word, remplacer quelques mots par de valeurs lues sur la feuille excel en utilisant file input et file outpout.

Dim tempstr, temp
vacature = Trim(Range("F3").Text)

Open "C:Mailingmaker.doc" For Input As #1

Do While Not EOF(1)
Line Input #1, temp
tempstr = tempstr & temp
Loop
Close #1

tempstr = Replace(tempstr, "<function", vacature)

Open "C:\Mailingmaker.doc" For Output As #1
Print #1, tempstr
Close #1

Mais l'application word est bien demarrée, car le document est vide, alors qu'il contien du texte. Mais rien ne se passe.

Merci de votre aide