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