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 StringDim 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 à [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
