Comment convertir un nombre en mots dans un document Word?

Cet article parle de la méthode de conversion des nombres en mots anglais dans un document Word, veuillez continuer pour afficher les détails si vous êtes intéressé.

Convertir un nombre en mots anglais avec VBA

Convertir un nombre en mots anglais dans Excel avec Kutools for Excel

Convertir un nombre en mots anglais avec VBA

1. Sélectionnez le nombre que vous souhaitez convertir en mots, appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, et copiez les codes ci-dessous et collez-les dans le Module scripts.

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. presse F5 clé pour exécuter le code, maintenant le nombre a été converti en mots.

Notes： Le code ne fonctionne qu'à un seul numéro à chaque fois.

Convertir un nombre en mots anglais avec Kutools for Excel

Si vous souhaitez convertir des nombres en mots dans une feuille Excel, il existe un outil pratique - Nombres en mots de Kutools for Excel, qui peut convertir des nombres en mots anglais ou chinois, ou convertir des nombres en devise anglaise ou chinoise.

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Sélectionnez les cellules dans lesquelles vous souhaitez convertir des nombres en mots, puis cliquez sur Kutools > Contenu > Nombres en mots.

2. Dans la boîte de dialogue contextuelle, cochez Anglais et Non converti en devise options.

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

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu  /  Réécrire le texte  /  Résumer des documents  /  Demander des informations basé sur le document, le tout dans Word

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois

✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers  /  Redimensionner toutes les images  /  Transposer les lignes et les colonnes du tableau  /  Convertir le tableau en texte

🧹 Nettoyage sans effort : balayer Espaces supplémentaires  /  Sauts de section  /  Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe

➕ Insertions créatives: Insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  code QR  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  / Découvrez-en davantage dans le Insérer un groupe

🔍 Sélections de précision: Localiser pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités

⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion

👉 Vous voulez essayer ces fonctionnalités ? Kutools for Word propose un Essai gratuit 60-day, sans aucune limite ! 🚀

Téléchargement gratuit     En savoir plus     COMMANDER MAINTENANT