Accéder au contenu principal

Comment convertir un nombre en mots dans un document Word ?

Author: Sun Last Modified: 2025-08-06

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 – Améliorez votre expérience Word avec plus de 100 fonctionnalités exceptionnelles!

🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...

📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents 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 de tableau/ Convertir le tableau en texte...

🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...

➕ Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...

🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...

⭐ Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...

🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous souhaitez essayer ces fonctionnalités? Téléchargez Kutools pour Word dès 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