En ediciones anteriores de WordTips aprendiste a usar una macro para convertir números en palabras. Por ejemplo, puede convertir 123 en ciento veintitrés. Las encarnaciones anteriores de esta macro se limitaron a números por debajo de un millón. En esta versión, la apuesta inicial se ha aumentado mil veces: esta versión de la macro VBA convertirá con éxito números hasta 999,999,999.

Sub BigCardText()

Dim sDigits As String     Dim sBigStuff As String

sBigStuff = ""



' Select the full number in which the insertion point is located     Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdMove     Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

' Store the digits in a variable     sDigits = Trim(Selection.Text)

If Val(sDigits) > 999999 Then         If Val(sDigits) <= 999999999 Then             sBigStuff = Trim(Int(Str(Val(sDigits) / 1000000)))

' Create a field containing the big digits and             ' the cardtext format flag             Selection.Fields.Add Range:=Selection.Range, _               Type:=wdFieldEmpty, Text:="= " + sBigStuff + " \* CardText", _               PreserveFormatting:=True

' Select the field and copy it             Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend             sBigStuff = Selection.Text & " million "

sDigits = Right(sDigits, 6)

End If     End If     If Val(sDigits) <= 999999 Then         ' Create a field containing the digits and the cardtext format flag         Selection.Fields.Add Range:=Selection.Range, _           Type:=wdFieldEmpty, Text:="= " + sDigits + " \* CardText", _           PreserveFormatting:=True              ' Select the field and copy it         Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend         sDigits = sBigStuff & Selection.Text

' Now put the words in the document         Selection.TypeText Text:=sDigits         Selection.TypeText Text:=" "

Else         MsgBox "Number too large", vbOKOnly     End If End Sub

Debe comprender que para usar la macro, todo lo que necesita hacer es colocar el punto de inserción en cualquier lugar dentro del número que desea convertir. Sin embargo, debe asegurarse de que el número no contenga información ajena, como signos de dólar o comas. Cuando ejecuta BigCardText, la macro comprueba si el número seleccionado es superior a un millón. Si es así, primero funciona en la parte superior a un millón, convirtiéndola en palabras. Luego, se convierte el valor por debajo de un millón. La redacción final y completa se ensambla y se vuelve a pegar en el documento, lista para usar.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1442) se aplica a Microsoft Word 97, 2000, 2002 y 2003.