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

Bonsoir,

Pour récupérer des textes taper avec un police non standard j'utilise 
une macro qui marche bien sauf pour un caractère. Voici la macro que 
vous reconnaîtrez car elle n'est pas de moi et j'ai laissé le commentaire...
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 !

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