Le 11/04/2016 17:12, Landron Gérard a écrit :
je viens de mettre un nouveau fichier avec quelques caractères qui
seront effectivement remplacer, cela permet de voir que la macro tourne!
https://framadrop.org/r/rpCwsDZp2Q#6u7vnEW+EnBtjsKF/cTCtEqKebU01jzrl4GOlPy3/hM=
euh... là je ne comprends plus : la macro intégrée à ce document (qui
est l'ancienne version) ne fonctionne pas chez moi.
En revanche, la version modifiée que j'avais proposée dans mon message
du 10/4 à 19:08 fonctionne. Pour mémoire :
8< --------------------------------------------------------
Sub police2
Dim mauvais() As String
Dim bon() As String
Dim oDoc as object
Dim oReplace as Object
Dim n As Long
oDoc = ThisComponent
' Attention ! Mauvais() et Bon() DOIVENT avoir le même nombre
d'éléments !
mauvais() =
Array("Ø","$","‡","æ","ó","á","é","Δ","©","ú","Æ","Ã\u00AD")
bon() = Array("ė","ą̃","Š","š","ų","ẽ","ó","á","é","ǽ","©", "í")
oReplace = oDoc.createReplaceDescriptor()
oReplace.SearchCaseSensitive = True
oReplace.SearchRegularExpression = True
For n = lbound(mauvais()) To ubound(mauvais())
oReplace.SearchString = mauvais(n)
oReplace.ReplaceString = bon(n)
oDoc.ReplaceAll(oReplace)
Next n
End Sub
-------------------------------------------------------- >8
Recopie la sub Police2 dans ton fichier et exécute-la.
--
Jean-Francois Nifenecker, Bordeaux
--
Envoyez un mail à [email protected] pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
