Comment convertir un nombre en mots dans un document Word ?
Cet article traite de la méthode pour convertir des nombres en mots anglais dans un document Word. Si vous êtes intéressé, veuillez continuer à lire pour plus de détails.
Convertir un nombre en mots anglais avec VBA
Convertir un nombre en mots anglais dans Excel avec Kutools pour Excel
Convertir un nombre en mots anglais avec VBA
1. Sélectionnez le nombre que vous souhaitez convertir en mots, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis copiez le code ci-dessous et collez-le dans le script du Module.
VBA : Convertir un nombre en mots
Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
Dim xDigit As Double
Dim xBuff As String
On Error Resume Next
Selection.MoveLeft wdWord, 1, wdMove
Selection.MoveRight wdWord, 1, wdExtend
xDigit = Val(Trim(Selection.Text))
If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
If xDigit > 999999 Then
If xDigit <= 999999999 Then
xBuff = Trim(Int(Str(xDigit / 1000000)))
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xBuff = Selection.Text & " million "
xDigit = Right(Str(xDigit), 6)
End If
End If
If xDigit <= 999999 Then
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xDigit = xBuff & Selection.Text
Selection.TypeText xDigit + " "
Else
MsgBox "Number too large", vbOKOnly, "Kutool for Word"
End If
End Sub
3. Appuyez sur F5 pour exécuter le code. Maintenant, le nombre a été converti en mots.
Remarque : Le code ne fonctionne que pour un seul nombre à la fois.
Convertir un nombre en mots anglais avec Kutools pour Excel
Si vous souhaitez convertir des nombres en mots dans une feuille Excel, il existe un outil pratique - Convertir en mots de Kutools pour Excel, qui peut convertir des nombres en mots anglais ou chinois, ou encore transformer des nombres en devises anglaises ou chinoises.
Après avoir installé gratuitement Kutools pour Excel, procédez comme suit :
1. Sélectionnez les cellules contenant les nombres que vous souhaitez convertir en mots, puis cliquez sur Kutools > Texte > Convertir en mots.
2. Dans la fenêtre contextuelle, cochez Anglais et Ne pas convertir en unité monétaire options.
3. Cliquez sur Ok ou Appliquer, les nombres sélectionnés seront convertis en mots.
Meilleurs outils de productivité pour Office
Kutools pour Word – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...
📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...
✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...
🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone de texte / Liens hypertexte / Pour plus d’outils de suppression, rendez-vous dans le groupe Supprimer...
➕ Insertion créative : Insérer des séparateurs de milliers / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...
🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...
⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...
🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

✨ Kutools pour Office – Une installation, cinq outils puissants !
Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint
📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément
Meilleurs outils de productivité pour Office
Kutools pour Word – 100+ outils pour Word
- 🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish / Super Traduire / Rédaction IA / Correction AI
- 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
- ✏ Modification du texte : Recherche et remplacement en lot / Redimensionner toutes les images
- 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
- ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR
- 🌍 Prend en charge plus de40 langues : Kutools parle votre langue – plus de40 langues prises en charge !