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

Le 11/04/2016 19:56, Jean-Francois Nifenecker a écrit :
> 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.
ok, ça marche
la différence est la ligne oReplace.SearchRegularExpression = True
qui n'était pas dans mon code.
Je n'ai plus qu'à compléter avec les quelques caractères qui me manquetn

un grand merci

Gérard

--
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