Getallen tot tekst, Take Three (Meer dan een miljoen)

In vorige nummers van WordTips u geleerd hoe u een macro gebruiken om getallen te converteren naar woorden. Bijvoorbeeld, kunt u deze converteren 123 tot honderd drie├źntwintig. De vorige incarnaties van deze macro bleven beperkt tot getallen minder dan een miljoen. In deze versie, is de ante al duizend keer upped - deze versie van de VBA macro zal nummers met succes om te zetten tot 999.999.999.

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)

U moet begrijpen dat de macro gebruiken, alles wat je hoeft te doen is het plaatsen van overal het invoegpunt in het nummer dat u wilt converteren. Je moet ervoor zorgen echter dat het aantal 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 (1442) is van toepassing op Microsoft Word 97, 2000, 2002, en 2003.