Lettres cyrilliques dans une macro
Khaknor
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
Khaknor Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Khaknor Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je désire créer une macro qui devrait chercher des mots et les remplacer par d'autres. Elle devra aussi rechercher des signes (trait d'union remplacé par trait d'union insécable par ex.). Le problème est que je ne sais pas comment insérer les lettres cyrilliques dans mon code. Celui-ci les remplace par d'autres lettres. quelle manipulation dois-je faire pour y arriver?
Merci a l'avance
je désire créer une macro qui devrait chercher des mots et les remplacer par d'autres. Elle devra aussi rechercher des signes (trait d'union remplacé par trait d'union insécable par ex.). Le problème est que je ne sais pas comment insérer les lettres cyrilliques dans mon code. Celui-ci les remplace par d'autres lettres. quelle manipulation dois-je faire pour y arriver?
Merci a l'avance
A voir également:
- Lettres cyrilliques dans une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Mon clavier n'écrit plus les lettres ✓ - Forum Clavier
3 réponses
Bonjour,
Je suppose que tu possèdes une police cyrillique.
Il faut donc que tu ajoutes dans ton code que le remplacement est fait avec cette police.
Par contre, dans le code, tu ne vas pas pouvoir taper en russe le texte de remplacement. Donc commence par le saisir dans une page Word, tu le copies et tu le colles dans le code, ça va te donner une suite de caractères de chez nous qui ne voudra rien dire, mais ce n'est pas grave.
Voici un exemple en grec avec une police grecque (je ne parle pas le russe !) :
Dans cet exemple le mot "bonsoir" en français sera bien remplacé par le grec καλησπέρα même si c'est écrit "Kalhspera" dans le code.
m@rina
Méfiez-vous de la tisane : c'est un poison dangereux...
Je suppose que tu possèdes une police cyrillique.
Il faut donc que tu ajoutes dans ton code que le remplacement est fait avec cette police.
Par contre, dans le code, tu ne vas pas pouvoir taper en russe le texte de remplacement. Donc commence par le saisir dans une page Word, tu le copies et tu le colles dans le code, ça va te donner une suite de caractères de chez nous qui ne voudra rien dire, mais ce n'est pas grave.
Voici un exemple en grec avec une police grecque (je ne parle pas le russe !) :
With ActiveDocument.Content.Find
.ClearFormatting
With .Replacement
.ClearFormatting
.Font.Name = "Ismini" 'tu mets le nom de ta police cyrillique
End With
.Execute FindText:="bonsoir", ReplaceWith:="Kalhspera", Format:=True, _
Replace:=wdReplaceAll
End With
Dans cet exemple le mot "bonsoir" en français sera bien remplacé par le grec καλησπέρα même si c'est écrit "Kalhspera" dans le code.
m@rina
Méfiez-vous de la tisane : c'est un poison dangereux...
Bonjour a toutes et tous,
Merci beaucoup pour cette réponse. J'ai trouvé comment intégrer les codes (ex ChrW(1117) ). Maintenant je cherche comment effectuer ma macro, pas dans un document complet mais dans une zone que je sélectionne. Je m'explique: j'ai une tonne de documents que je dois modifier, mais je dois absolument préserver une zone de texte au début de chaque document.
Si quelqu'un a une idée, je suis preneur
Merci à l'avance.
Merci beaucoup pour cette réponse. J'ai trouvé comment intégrer les codes (ex ChrW(1117) ). Maintenant je cherche comment effectuer ma macro, pas dans un document complet mais dans une zone que je sélectionne. Je m'explique: j'ai une tonne de documents que je dois modifier, mais je dois absolument préserver une zone de texte au début de chaque document.
Si quelqu'un a une idée, je suis preneur
Merci à l'avance.