PROCEDURE Find_Replace(psBalise est une chaine, psReplace est une chaine)
nLong est un entier
nPos est un entier = 1
sBloc est une chaine
sBuff est une chaine = "@@@"
nLong = Taille( psReplace )
sBloc = psReplace[[ nPos A nPos + 195 ]]
TANTQUE nPos < nLong
Si ( nPos + 195 )< nLong Alors sBloc += sBuff
word>>Selection>>Find>>Execute(psBalise,Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,psReplace,2)
psBalise = sBuff
nPos += 195
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=6109&post_id=24502