Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe nummer omzetten naar woorden in Word-document?

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

Converteer het aantal naar Engelse woorden met VBA

Eenvoudig een woorddocument opsplitsen in meerdere

Over het algemeen gebruiken we kopiëren en plakken om een ​​Word-document één voor één te splitsen, maar het Split Documnet-hulpprogramma kan een Word-document splitsen op basis van pagina, heading1, pagina-einde of sectie-einde, wat de werkefficiëntie zal verbeteren. Klik voor gratis proefperiode van 45 dagen!
advertentiesplitsing per pagina
Kutools voor Word: met honderden handige Word-invoegtoepassingen, gratis om zonder beperking in 45-dagen te proberen.

Converteer het aantal naar Engelse woorden met VBA

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

2. klikken bijvoegsel > moduleen kopieer onderstaande codes en plak ze in de module scripts.

VBA: zet getal om in woorden

Sub ConvertNumberToWord () 'UpdatebyExtendoffice20181010 Dim xDigit als Double Dim xBuff As String On Error Hervat volgende selectie.MoveLeft wdWord, 1, wdMove Selection.MoveRight wdWord, 1, wdExtend xDigit = Val (Trim (Selection.Text)) Als xDigit = 0 En 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 Selectie.Velden.Voeg selectie toe.Range, wdFieldEmpty, "=" + Str (xDigit) + "\ * CardText", True Selection.MoveLeft wdWord, 1, wdExtend xDigit = xBuff & Selection.Text Selection.TypeText xDigit + " "Else MsgBox" Nummer te groot ", vBOKOnly," Kutool for Word "End If End Sub

3. druk op F5 toets om de code uit te voeren, nu is het nummer geconverteerd naar woorden.
doc-nummer om 1 te noemen

Notes: De code werkt elke keer op één cijfer.


Met tabbladen bladeren en bewerken van meerdere Word-documenten / Excel-werkmappen als Firefox, Chrome, Internet Verken 10!

U kunt er bekend mee zijn om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen deze pagina's te schakelen door eenvoudig op overeenkomstige tabbladen te klikken. Hier ondersteunt de Office-tab een vergelijkbare verwerking, waarmee u door meerdere Word-documenten of Excel-werkmappen kunt bladeren in één Word-venster of Excel-venster en eenvoudig kunt schakelen tussen deze documenten door op hun tabbladen te klikken.
Klik voor gratis proefversie van Office Tab!

Blader door documenten met meerdere woorden in één venster als Firefox


Aanbevolen Word-productiviteitstools

Kutools For Word - meer dan 100 geavanceerde functies voor Microsoft Word, sla uw 50% tijd op

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop 1, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, en zo verder ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.