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

Bonsoir Gérard,

Le 09/04/2016 20:12, Landron Gérard a écrit :
> Sub police
> 'Andy dit que dans le futur, ils devront peut-être être de type Variant
> pour travailler avec Array()
> Dim mauvais(5) As String, bon(5) As String
>
> Dim oDocument as object, oReplace as object
> mauvais() = Array("Ø","$","‡","æ","ó","á","é","Δ","©","ú","Æ")
> bon() =     Array("ė","ą̃","Š","š","ų","ẽ","ó","á","é","ǽ","©")
> oReplace = ThisComponent.createReplaceDescriptor()
> oReplace.SearchCaseSensitive = True
> For n = lbound(mauvais()) To ubound(bon())
> oReplace.SearchString = mauvais(n)
> oReplace.ReplaceString = bon(n)
> ThisComponent.ReplaceAll(oReplace)
> Next n
> End Sub
>
> j'ai réduit les tableaux pour qu'il ne soient pas coupés.
> Il me reste à replacer "Â + tiret insécable" par í.
> Comment peut-on faire ? sachant que je ne sais rien en basic !

Il semblerait que le code Ascii du tiret insécable soit 150.

Donc "Â" & Chr(150) te donne la chaîne à rechercher.


A+
--
Jean-Francois Nifenecker, Bordeaux
07.52.63.25.54

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