Voici un petit bout de code qui vous permet de chercher et remplacer une chaine de texte par une autre dans un document Write Pro.
Dans le code, veuillez penser à remplacer Form.WPObj, Form.search et Form.replace:
C_OBJECT($find)
$length:=0
// Find
$allText:=WP Get text(Form.WPObj)
$pos:=0
$find_col:=New collection
Repeat
$pos:=Position(Form.search;$allText;$pos+1;$length)
If ($pos>0)
$find_col.push(New object("pos";$pos;"length";$length))
End if
Until ($pos=0)
// Replace
For ($i;$find_col.length-1;0;-1)
$find:=$find_col[$i]
$range:=WP Text range(Form.WPObj;$find.pos;$find.pos+$find.length)
WP SET TEXT($range;Form.replace;wk replace)
End for