Tall til tekst, ta tre (Over en million)

August 22  by Eliza

I tidligere utgaver av WordTips du lærte å bruke en makro til å konvertere tall til ord. For eksempel kan du konvertere 123 til ett hundre tjuetre. De tidligere inkarnasjoner av denne makroen var begrenset til tall under en million. I denne versjonen har anten blitt upped tusen ganger - denne versjonen av VBA-makro vil kunne konvertere tallene opp til 999 999 999.

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

sBigStuff = ""

'Velg hele nummeret der innsettingspunktet er plassert
Selection.MoveLeft Enhet: = wdWord, Count: = 1, Extend: = wdMove
Selection.MoveRight Enhet: = wdWord, Count: = 1, Extend: = wdExtend

'Lagre sifrene i en variabel
sDigits = Trim (Selection.Text)

If Val (sDigits)> 999999 Deretter
Hvis Val (sDigits) <= 999999999 Then
sBigStuff = Trim (Int (Str (Val (sDigits) / 1000000)))
Opprett et felt som inneholder de store sifre og
'The cardtext format flagg
Selection.Fields.Add Range: = Selection.Range, _
Type: = wdFieldEmpty, Tekst: = "=" + sBigStuff + "\ * CardText", _
PreserveFormatting: = sant

'Velg feltet og kopiere den
Selection.MoveLeft Enhet: = wdWord, Count: = 1, Extend: = wdExtend
sBigStuff = Selection.Text & "million"
sDigits = Høyre (sDigits, 6)
End If
End If
Hvis Val (sDigits)

Du bør forstå at å bruke makroen, er alt du trenger å gjøre å plassere innsettingspunktet hvor som helst innenfor det nummeret du ønsker å konvertere. Du må sørge for, men at antallet ikke inneholder overflødig informasjon, for eksempel dollartegn eller komma. Når du kjører BigCardText, til de makroprogrammet om det valgte nummeret er over en million. Hvis det er, først virker den på delen over en million, konvertere det til ordene. Deretter blir verdien under en million omdannet. Den endelige, fullstendig formuleringen settes sammen og limes inn i dokumentet, klar til bruk.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1442) gjelder for Microsoft Word 97, 2000, 2002, og 2003.