Konvertere tall til tekst

March 19  by Eliza

Det er tider når du trenger å stave tall ut. For eksempel, kan det være lurt å stave ut "1234" som "1234". Word har ingen innebygd funksjon som vil gjøre konverteringen for deg, slik at du blir igjen for å lage en makro som vil håndtere konverteringen.

Følgende makro, BigCardText, vil konvertere et tall mellom 0 og 999 999 999. Å bruke den, bare plassere innsettingspunktet enten innenfor nummeret du ønsker å konvertere eller bare til høyre for nummeret (hvis det er et enkelt siffer).

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)

Når du bruker makro, sørg for at nummeret du konverterer 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 (7755) gjelder for Microsoft Word 2007, 2010, og 2013. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet i Word her: Konvertering Numbers til tekst.