Het omzetten van getallen naar tekst

Er zijn momenten waarop je nodig hebt om nummers spellen. Bijvoorbeeld, kunt u beschrijven "1234" als "1234". Het woord heeft geen ingebouwde functie die de conversie voor u zal doen, zodat je links om een ​​macro die de conversie zal behandelen creëren.

De volgende macro, BigCardText, zal elk nummer te zetten tussen 0 en 999.999.999. Om het te gebruiken, plaatst u de invoegpositie hetzij binnen het nummer dat u wilt converteren of alleen aan de rechterkant van het nummer (als het een enkel cijfer).

Sub BigCardText ()
Dim sDigits As String
Dim sBigStuff als Koord

sBigStuff = ""

'Kies het volledige nummer waarin de invoegpositie zich bevindt
Selection.MoveLeft Unit: = wdWord, Count: = 1, Extend: = wdMove
Selection.MoveRight Unit: = wdWord, Count: = 1, Extend: = wdExtend

'Leg de cijfers in een variabele
sDigits = Trim (Selection.Text)

Als Val (sDigits)> 999999 Dan
Als Val (sDigits) <= 999.999.999 Dan
sBigStuff = Trim (Int (Str (Val (sDigits) / 1000000)))
'Maak een veld met de grote cijfers en
'De cardtext formaat vlag
Selection.Fields.Add Range: = Selection.Range, _
Type: = wdFieldEmpty, Tekst: = "=" + sBigStuff + "\ * CardText", _
PreserveFormatting: = true

'Selecteer het veld en kopieer deze
Selection.MoveLeft Unit: = wdWord, Count: = 1, Extend: = wdExtend
sBigStuff = Selection.Text & "miljoen"
sDigits = Rechts (sDigits, 6)
End If
End If
Als Val (sDigits)

Bij gebruik van de macro, zorg ervoor dat het nummer dat u het omzetten van irrelevante informatie bevat, zoals dollartekens of komma's. Wanneer u BigCardText lopen, de macro controleert om te zien of het geselecteerde aantal is meer dan een miljoen. Als het, eerst werkt op het gedeelte boven een miljoen, omzetten woorden. Vervolgens wordt de waarde van minder dan een miljoen omgezet. De uiteindelijke, volledige tekst wordt in elkaar gezet en geplakt terug in het document, klaar voor gebruik.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (7755) is van toepassing op Microsoft Word 2007, 2010 en 2013. U kunt een versie van deze tip voor de oudere menu-interface van Word hier vinden: Het omzetten van Aantallen naar tekst.


© 2019 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com