Numeri per testo, prendere tre (oltre un milione)

Nei numeri precedenti di WordTips avete imparato come utilizzare una macro per convertire i numeri in parole. Ad esempio, è possibile convertire 123 per cento per ventitré. Le precedenti incarnazioni di questa macro si sono limitati a numeri di sotto di un milione. In questa versione, la posta è stata incrementata mille volte - questa versione della macro VBA sarà successo convertire i numeri fino a 999.999.999.

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

sBigStuff = ""

'Selezionare il numero totale in cui si trova il punto di inserimento
Selection.MoveLeft Unità: = wdWord, Count: = 1, Extend: = wdMove
Selection.MoveRight Unità: = wdWord, Count: = 1, Extend: = wdExtend

'Conservare le cifre in una variabile
sDigits = Trim (Selection.Text)

Se Val (sDigits)> 999999 Poi
Se Val (sDigits) <= 999999999 Poi
sBigStuff = Trim (Int (Str (Val (sDigits) / 1000000)))
'Creare un campo che contiene i grandi numeri e
'Bandiera format cardtext
Selection.Fields.Add Range: = Selection.Range, _
Tipo: = wdFieldEmpty, Text: = "=" + sBigStuff + "\ * CardText", _
PreserveFormatting: = TRUE

'Selezionare il campo e copiarlo
Selection.MoveLeft Unità: = wdWord, Count: = 1, Extend: = wdExtend
sBigStuff = Selection.Text e "milioni"
sDigits = Destra (sDigits, 6)
End If
End If
Se Val (sDigits)

Si dovrebbe capire che per usare il macro, tutto quello che dovete fare è inserire il punto di inserimento in qualsiasi punto all'interno del numero che si desidera convertire. È necessario fare in modo, tuttavia, che il numero non contiene informazioni estranee, come ad esempio i segni del dollaro o virgole. Quando si esegue BigCardText, i controlli macro per vedere se il numero selezionato è più di un milione. Se lo è, funziona prima sulla porzione sopra un milione, convertendolo in parole. Quindi, il valore di sotto di un milione viene convertito. La finale, testo completo è messo insieme e incollato indietro nel documento, pronto per l'uso.

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (1442) si applica a Microsoft Word 97, 2000, 2002, e 2003.