rechercher/remplacer caractères spéciaux

[MarLoZ]

Bonjour,
J'ai un document Word. Je voudrais faire :
edition > rechercher > ...
caractère spécial, qui est le losange plein.
Ce caractère a le code décimal

Code :

168

, le code hexadecimal

Code :

00A8

.

Je ne sais plus comment faire? est-ce que quequ'un peut m'aider?

D'avance merci,

MarLoZ

[pgz]

Bonjour.

Si tu pratiques VBA, une petite macro du style

Code :

1
2
3
4
5
6
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
    .ClearFormatting
    .Text = Chr(168)
    .Execute 
End With

Suivant les cas il y aura peut-être des arguments à préciser pour la méthode Execute.

Bon courage,

[MarLoZ]

Merci pour ta réponse.
Je dois donc passer par un module VBA. J'ai donc construit un module qui me permet d'aller chercher dans un document word un caractère (en l'occurrence mon losange plein) et de le remplacer par un autre caractère.
Mais si j'utilise

Code :

.Text = Chr(168)

je fais croire qu'il s'agit d'un code Ascii. Or 168 est du decimal et H00A8 de l'hexa.
J'ai essayé

Code :

.Text = ChrW(&H00A8)

mais ça ne fonctionne pas.
Je ne trouve pas comment faire référence à un caractère hexadecimal sous VBA Word.

MarLoZ

[Heureux-oli]

une piste à explorer

Code :

Selection.ToggleCharacterCode