Le 11/04/2016 19:56, Jean-Francois Nifenecker a écrit :
euh... là je ne comprends plus : la macro intégrée à ce document (qui est l'ancienne version) ne fonctionne pas chez moi.En revanche, la version modifiée que j'avais proposée dans mon message du 10/4 à 19:08 fonctionne. Pour mémoire : 8< -------------------------------------------------------- Sub police2 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 Recopie la sub Police2 dans ton fichier et exécute-la.
ok, ça marche la différence est la ligne oReplace.SearchRegularExpression = True qui n'était pas dans mon code. Je n'ai plus qu'à compléter avec les quelques caractères qui me manquetn un grand 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
