Pages

2 juin 2008

Ligature (6/8)

script Ligature -- replacer les entrelacés
property entrelaces : {{"æ", "ae"}, {"Æ", "AE"}, {"œ", "oe"}, {"Œ", "OE"}}
on myProcess(theText)
set theText to theText as text
repeat with i in entrelaces
set theText to findReplace(theText, item 1 of i, item 2 of i)
end repeat
end myProcess
end script

>>Ouvrir le script dans l'éditeur

Aucun commentaire: