Converteer Kleine letters naar hoofdletters in Word (bulksgewijs) — Engels en Chinees

Moet u getallen naar woorden voor valuta in Word converteren—zodat bedragen als uitgeschreven tekst verschijnen in facturen, contracten of op cheques? U bent niet de enige: Word biedt geen eenvoudige ingebouwde optie om geldbedragen in één keer uit te schrijven, zeker niet wanneer uw document veel bedragen bevat.

Hieronder staan twee betrouwbare methoden om dit voor elkaar te krijgen:(1) een Excel-„automatische” workflow (VBA om woorden voor valuta te genereren en vervolgens kopiëren/plakken in Word – meer instellingen en langzamer), en (2) een snellere methode in Word met slechts enkele klikken met behulp van Kutools voor Word (ideaal als u in Word wilt blijven en meerdere bedragen tegelijk wilt converteren).

💡 Snel navigeren:

• Wat „woorden voor valuta” betekent (met voorbeelden)
• Methode 1 — In Excel: omzetten naar woorden voor valuta met VBA + kopiëren/plakken in Word
• Methode 2 — In Word: één klik om om te zetten naar woorden voor valuta met Kutools voor Word
  • Getallen bulksgewijs omzetten naar Engelse valutawoorden
  • Getallen bulksgewijs omzetten naar Chinese valutawoorden
• Vergelijking tussen Excel en Kutools
• Probleemoplossing
• Veelgestelde vragen

Wat „woorden voor valuta” betekent (met voorbeelden)

„Valutawoorden” betekent het omzetten van numerieke bedragen naar een uitgeschreven notatie, zoals:1234,56 → „One Thousand Two Hundred Thirty-Four Dollars and Fifty-Six Cents”. Dit komt veel voor in contracten, facturen, cheques, inkooporders en declaratiedocumenten.

Methode 1 — In Excel: omzetten naar valutawoorden met VBA + kopiëren-plakken in Word

Deze werkwijze is handig wanneer uw bedragen al in een spreadsheet staan en u eenvoudig de valutawoorden in Excel wilt genereren om ze vervolgens binnen enkele seconden naar Word te kopiëren naar Word kopieert.

Stap 1 — Bereid uw Excel-tabel voor

1. Maak in Excel een tabel zoals deze: Bedrag (getallen) en BedragInWoorden (wordt automatisch gegenereerd).
2. Zorg ervoor dat bedragen zuivere getallen zijn (geen tekst). Gebruik zo nodig eerst de functie ‘Tekst naar getal’ om ze te converteren.
   

Stap 2 — Voeg een VBA-functie (UDF) toe om Kleine letters naar hoofdletters om te zetten

1. Druk in Excel op Alt + F11 om de VBA-editor te openen.
2. Klik op Invoegen > Module.
3. Plak de onderstaande VBA-code in de module.
4. Sla het bestand op als .xlsm (werkmap met ingeschakelde macro’s).

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

Stap 3 — Vul naar beneden om meerdere getallen tegelijk te converteren (bulk)

1. Voer in uw kolom BedragInWoorden het volgende in: =CurrencyWordsUSD(A2) (pas de celverwijzing aan naar uw werkblad).
   
2. Vul omlaag om alle rijen te converteren.
   
3. Optioneel (aanbevolen): kopieer de kolom BedragInWoorden en plak waarden om de resultaten vast te leggen.
   

Stap 4 — Breng de resultaten over naar Word (snel kopiëren-plakken)

1. Selecteer in Excel de cellen Bedrag en BedragInWoorden die u nodig hebt en druk vervolgens op Ctrl + C.
2. Klik in Word op de plek waar u de resultaten wilt plaatsen en druk daarna op Ctrl + V.
   

Methode 2 — In Word: één klik om om te zetten naar valutawoorden met Kutools voor Word

Voor de eenvoudigste Word-first-werkwijze biedt Kutools voor Word twee specifieke opdrachten: Getallen naar Engelse valutawoorden en Getallen naar Chinese valutawoorden. Met één klik zet u kleine letters direct om naar hoofdletters in uw document.

Getallen bulksgewijs omzetten naar Engelse valutawoorden

Na het downloaden en installeren van Kutools voor Wordvanaf de officiële website, voert u het volgende uit:

1. Selecteer in Word de tekst met de getallen die u wilt converteren.

   Tip: Als u niets selecteert, wordt de functie toegepast op het hele document.

2. Klik op Kutools > Invoegen > Getallen naar Engelse woorden voor valuta.
   

Resultaat: Kutools vervangt de getallen onmiddellijk door Engelse valutawoorden in de geselecteerde inhoud (of in het hele document).

Getallen bulksgewijs omzetten naar Chinese valutawoorden

Na het downloaden en installeren van Kutools voor Wordvanaf de officiële website, voert u het volgende uit:

1. Selecteer in Word de tekst met de getallen die u wilt omzetten naar Chinese woorden voor valuta.

   Tip: Als u niets selecteert, zet de functie getallen in het hele document om.

2. Klik op Kutools > Invoegen > Getallen naar Chinese woorden voor valuta.
   

Resultaat: Kutools vervangt de getallen onmiddellijk door Chinese valutawoorden in de geselecteerde inhoud (of in het hele document).

Vergelijking tussen Excel en Kutools

Samenvatting: Kies voor de snelste Word-first-werkwijze Kutools voor Word om meerdere bedragen in slechts enkele klikken om te zetten naar valutawoorden (selectie of het hele document). Gebruik Excel VBA alleen als u al in Excel werkt en geen bezwaar hebt tegen extra instellingen.

Probleemoplossing

Veelgestelde vragen