[Résolu][Writer] Reconnaissance diacritiques et casse

[forumateur]

Bonjour
J'utilise une macro basic pour remplacer dans un texte les diacritiques "Ś" et "ś" par leurs équivallents "Sh" et "sh" en respectant la casse.

Ś

ś

La macro suivante :

Code : Tout sélectionner

Sub main
document = ThisComponent
repl = document.createReplaceDescriptor()

SearchCaseSensitive = True
repl.SearchString = chr(346)
repl.ReplaceString = "Sh"
document.replaceAll(repl)

SearchCaseSensitive = True
repl.SearchString = chr(347)
repl.ReplaceString = "sh"
document.replaceAll(repl)

End Sub

ne tient pas compte de la casse, et donc remplace "Ś" et "ś" par "Sh"(majuscule). D'ailleurs, si j'intervertis les 2 recherches, "Ś" et "ś" seront remplacés par "sh"(minuscule).

Avez-vous une explication, et comment faire ?
Merci d'avance...
PS : Les 2 lettres diacritiques dans la citation ou en pièce jointe

[Bidouille]

Pour la bonne tenue de ce forum, veillez à :

1. Supprimer le terme "problème" du titre car toutes les questions ici, sont forcément des problèmes
2. Fournir un document au format ODT et non pas dans celui de Microsoft

[joel275]

Bonjour,

essaie avec:

Code : Tout sélectionner

repl.SearchCaseSensitive = True

En utilisant:

Code : Tout sélectionner

Option Explicit

au début de ton code, tu éviteras ce genre de problème: si ta variable n'est pas déclarée (ici SearchCaseSensitive, tu auras une erreur)

A plus.

[forumateur]

Merci beaucoup Joel !
En effet, erreur de débutant...