Konvertera siffror till text

August 5

Det finns tillfällen när du behöver att stava siffror ut. Till exempel kanske du vill att stava ut "1234" som "1234". Ordet har ingen inbyggd funktion som kommer att göra konverteringen för dig, så du är kvar för att skapa ett makro som kommer att hantera omvandlingen.

Följande makro, BigCardText, kommer konvertera alla nummer mellan 0 och 999.999.999. För att använda det, helt enkelt placera insättningspunkten antingen inom det nummer du vill konvertera eller bara till höger om numret (om det är en enda siffra).

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)

När du använder makro, se till att antalet du konverterar innehåller inte 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 (7755) gäller för Microsoft Word 2007, 2010 och 2013. Du kan hitta en version av detta tips för den äldre menygränssnittet Word här: Konvertera siffror till Text.