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

Le 10/04/2016 18:06, Landron Gérard a écrit :
> > Dans le dialogue Rechercher & remplacer, il faut rechercher 'Â' et
> > coller le tiret insécable qu'on aura copié dans le texte. Là, ça marche.
> > Le chr() ne peut pas marcher.
> Il n'admet plus cela ! caractère introuvable

Il faut utiliser la recherche avec les expressions régulières. Pour le 
tiret insécable, le code est \u00AD. Voir ici :
http://sirius.on-rev.com/regex/regular_expressions_writer.html

J'ai essayé sur ton échantillon (ne mets pas les quotes simples ') :
Rechercher : 'Ã\u00AD'
Remplacer  : 'í'

-> ça marche.

Par macro, il faut écrire ceci :
8< --------------------------------------------------------
Sub police
'Andy dit que dans le futur, ils devront peut-être être de type Variant 
pour travailler avec Array()

        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

--
Jean-Francois Nifenecker, Bordeaux

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