Accéder au contenu principal

Comment convertir un nombre en mots dans un document Word ?

Author: Sun Last Modified: 2025-05-27

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.
Number converted to English words

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.

Kutools pour Excel,doté d'IA 🤖, offre plus de 300 fonctionnalités pratiques pour simplifier vos tâches.

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.
Numbers to Words option on the Kutools tab on the Excel ribbon

2. Dans la fenêtre contextuelle, cochez Anglais et Ne pas convertir en unité monétaire options.
Numbers to Words dialog box

3. Cliquez sur Ok ou Appliquer, les nombres sélectionnés seront convertis en mots.

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones 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 / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀
 

Meilleurs outils de productivité pour Office

Kutools pour Word - 100+ outils pour Word

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools