Macro pour remplacer les apostrophes droites par des courbes

Il s'agit d'un message multivolet au format MIME.
--------------19687A784C4182A8B7117CB2
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

Bonjour,
Je cherche à créer une macro (dans Word 200) qui remplace toutes les
apostrophes droites de mon document par des courbes, sauf si le style du
paragraphe est 'Code' ou 'CodeDansTexte' (il s'agit de styles utilisés
dans une feuille de style perso).

Quelqu'un peut-il m'aider car je n'y arrive pas ?

Merci

--------------19687A784C4182A8B7117CB2
Content-Type: text/x-vcard; charset=us-ascii;
name="fchoin.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Carte pour Francis Choin
Content-Disposition: attachment;
filename="fchoin.vcf"

begin:vcard
n:Choin;Francis
tel;work:01 44 41 46 49
x-mozilla-html:FALSE
url:www.editions-eyrolles.com
version:2.1
email;internet:fchoin@eyrolles.com
title:Responsable d'édition
adr;quoted-printable:;;Editions Eyrolles=0D=0A61 bd Saint-Germain;Paris Cédex 05;;75240 ;
fn:Francis Choin
end:vcard

--------------19687A784C4182A8B7117CB2--