Nummer till text, ta tre (över en miljon)

September 30

I tidigare nummer av WordTips du lärt sig att använda ett makro för att konvertera tal till ord. Till exempel kan du konvertera 123 till hundra tjugutre. De tidigare inkarnationer för detta makroekonomiska var begränsade till nummer under en miljon. I den här versionen har ante varit folkomröstade tusen gånger - den här versionen av VBA-makro kommer lyckas konvertera tal upp till 999.999.999.

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

sBigStuff = ""

"Välj det fulla antalet där insättningspunkten är belägen
Selection.MoveLeft Enhet: = wdWord, Count: = 1, Extend: = wdMove
Selection.MoveRight Enhet: = wdWord, Count: = 1, Extend: = wdExtend

"Förvara siffrorna i en variabel
sDigits = Trim (Selection.Text)

If Val (sDigits)> 999999 Sedan
Om Val (sDigits) <= 999999999 Därefter
sBigStuff = Trim (Int (Str (Val (sDigits) / 1000000)))
"Skapa ett fält som innehåller de stora siffrorna och
"Cardtext format flagga
Selection.Fields.Add Range: = Selection.Range, _
Typ: = wdFieldEmpty, Text: = "=" + sBigStuff + "\ * CardText", _
PreserveFormatting: = sant

'Välj fält och kopiera den
Selection.MoveLeft Enhet: = wdWord, Count: = 1, Extend: = wdExtend
sBigStuff = Selection.Text & "miljoner"
sDigits = Right (sDigits, 6)
End If
End If
Om Val (sDigits)

Du bör förstå att använda makrot, allt du behöver göra placera insättningspunkten var som helst inom det nummer du vill konvertera. Du måste se till, dock att antalet inte innehåller ovidkommande information, såsom dollartecken eller kommatecken. När du kör BigCardText, till makrokontroller se om det valda numret är över en miljon. Om det är, först fungerar det på delen ovanför en miljon, omvandla den till ord. Därefter det värde under en miljon konverterats. Den slutliga, fullständiga lydelse sätts ihop och klistras tillbaka in i handlingen, klar för användning.

WordTips är din källa för kostnadseffektiv Microsoft Word utbildning. (Microsoft Word är det mest populära ordbehandlingsprogram i världen.) Detta tips (1442) gäller för Microsoft Word 97, 2000, 2002, och 2003.