Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

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

Author Sun Last modified

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.

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 Office-productiviteitstools

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

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools