Re: [fr-users] compléter une macro...

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 à users+unsubscribe@fr.libreoffice.org 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