Note: The other languages of the website are Google-translated. Back to English

Hoe nummer naar woorden in Word-document converteren?

Dit artikel heeft het over de methode voor het converteren van de getallen naar Engelse woorden in een Word-document, ga verder om de details te bekijken als je hierin geïnteresseerd bent.

Converteer nummer naar Engelse woorden met VBA

Converteer nummer naar Engelse woorden in Excel met Kutools voor Excel


Converteer nummer naar Engelse woorden met VBA

1. Selecteer het nummer dat u naar woorden wilt converteren, druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module, en kopieer onderstaande codes en plak ze in het Module scripts.

VBA: converteer getal 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 sleutel om de code uit te voeren, nu is het nummer omgezet in woorden.
doc-nummer naar woord 1

Opmerking:: De code werkt maar op één nummer per keer.


Converteer nummer naar Engelse woorden met Kutools voor Excel

Als u getallen naar woorden in een Excel-blad wilt converteren, is er een handige tool - Getallen naar woorden van Kutools for Excel, dat getallen naar Engelse of Chinese woorden kan converteren, of getallen naar Engelse valuta of Chinese valuta kan converteren.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer de cellen waarvan u getallen naar woorden wilt converteren en klik op Kutools > Content > Getallen naar woorden.
doc-nummer naar woord 1

2. Vink in het popping-dialoogvenster aan het Engels en Niet geconverteerd naar valuta opties.
doc-nummer naar woord 1

3. klikken Ok or Toepassen, worden de geselecteerde nummers omgezet in woorden.


Aanbevolen Word-productiviteitstools

 

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Comments (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties