psBalise est une chaîne = "@word"
psReplace est une chaîne = source
nLong est un entier
nPos est un entier = 1
sBloc est une chaîne
sBuff est une chaîne = "@@@"

nLong = Taille( psReplace )
 
TANTQUE nPos <  nLong 
	sBloc = psReplace[[ nPos A nPos + 195 ]]
	
	SI ( nPos + 195 )< nLong ALORS sBloc += sBuff  
	word>>Selection>>Find>>Execute(psBalise,Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,sBloc,2)
	psBalise = sBuff
	nPos += 195
FIN