Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment convertir un nombre en mots dans un document Word ?

Author Sun Last modified

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 – 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 and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

✨ 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