Hoe converteer je getallen naar woorden in een Word-document?

Author: Sun Last Modified: 2025-05-29

Dit artikel gaat over de methode om getallen om te zetten in Engelse woorden in een Word-document. Als je geïnteresseerd bent, ga dan verder om de details te bekijken.

Converteer getallen naar Engelse woorden met VBA

Converteer getallen naar Engelse woorden in Excel met Kutools voor Excel

Converteer getallen naar Engelse woorden met VBA

1. Selecteer het getal dat u wilt converteren naar woorden en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en kopieer onderstaande code. Plak deze vervolgens in het Module-script.

VBA: Converteer getallen naar woorden

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. Druk op F5 om de code uit te voeren. Het getal is nu geconverteerd naar woorden.
Number converted to English words

Opmerking: De code werkt slechts voor één getal tegelijk.

Converteer getallen naar Engelse woorden met Kutools voor Excel

Als u getallen wilt converteren naar woorden in een Excel-werkblad, is er een handig hulpmiddel - Numbers to Words van Kutools voor Excel, dat getallen kan omzetten in Engelse of Chinese woorden, of getallen kan converteren naar Engelse valuta of Chinese valuta.

Kutools voor Excel,uitgerust met AI 🤖, biedt meer dan 300 handige functies om uw taken te vereenvoudigen.

Nu downloaden

Na het gratis installeren van Kutools voor Excel, doe dan het volgende:

1. Selecteer de cellen waarvan u de getallen wilt converteren naar woorden en klik vervolgens op Kutools > Tekst > Numbers to Words.
Numbers to Words option on the Kutools tab on the Excel ribbon

2. Vink in het pop-up dialoogvenster aan Engels en Niet omzetten naar valuta opties.
Numbers to Words dialog box

3. Klik op Ok of Toepassen, de geselecteerde getallen worden geconverteerd naar woorden.

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...