Convertir numero a texto

Yo lo hago pero en Visual Foxpro ó Foxpro para DOS. Es una tabla dbf
-Excel puede guardar en ese formato- y una pequeña rutina. La tabla
tiene dos campos: uno donde va el numero y otro donde va el texto.
Una vez corrida la rutina, desde Excel podés abrir el dbf de nuevo y
listo, ya con el texto.

Si tenés Foxpro te envio la rutina para poder hacerlo.

En este grupo se ha planteado varias veces esa pregunta.
Ahora no tengo a mano ninguna macro que haga lo que pides,
pero si buscas en google seguro que la encuentras. En el
grupo de excel también se ha respondido varias veces

Hola!

Estoy buscando alguna forma de convertir numeros en letras

en Word. Por

ejemplo, tener "5" y convertirlo en "cinco"

He buscadoy he encontrado bastante informacion sobre este

procedimiento

para Excel y en PHP, incluso un Addin en inglés publicado

por MS:

Word 2002 Add-in: Microsoft Convert Number Smart Tag,

CnvNumToText.exe

Pero...no consigo encontrar nada específico en castellano

para Word, ni

sé cómo pasar la función de Excel a Macro en Word (o si

esto es posible...)

En fin, si alguien me puede aconsejar, o echarme una mano

con una

Plantilla, Macro o lo que sea, le estaré muy agradecido.

Saludos!
.

Revisa en la web www.mcpegasus.com creo tiene conversiones en español.

Victor Delgadillo MS-MVP Access 2002-2005
Miami, Florida

Mensajes a los grupos de noticas -- asi todos nos beneficiamos
Responde a este mensaje si te ha servido o no el consejo...

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/


wrote in message
news:142d01c54130$d9b9b830$
En este grupo se ha planteado varias veces esa pregunta.
Ahora no tengo a mano ninguna macro que haga lo que pides,
pero si buscas en google seguro que la encuentras. En el
grupo de excel también se ha respondido varias veces

Hola!

Estoy buscando alguna forma de convertir numeros en letras

en Word. Por

ejemplo, tener "5" y convertirlo en "cinco"

He buscadoy he encontrado bastante informacion sobre este

procedimiento

para Excel y en PHP, incluso un Addin en inglés publicado

por MS:

Word 2002 Add-in: Microsoft Convert Number Smart Tag,

CnvNumToText.exe

Pero...no consigo encontrar nada específico en castellano

para Word, ni

sé cómo pasar la función de Excel a Macro en Word (o si

esto es posible...)

En fin, si alguien me puede aconsejar, o echarme una mano

con una

Plantilla, Macro o lo que sea, le estaré muy agradecido.

Saludos!
.

Aqui el codigo para hacerlo en Foxpro.

*convierte numeros a letras
*tabla: ventasi.dbf campos: cant, texto
set safe off

use ventasi
go top
*repla all texto with ""
scan
letras =""
texto = ""
store ret2002. ingresos to anti
*parameter anti
*store space(50) to letras
*- - - - - - - DECIMALES
decimal1=anti-int(anti)
decimal2=transform(decimal1,"@L 9.99")
decimal =substr(decimal2,3,2)+"/100 "
*- - - - - - - ENTEROS
anti=int(anti)
cntdds=str(anti,9)
set decimals to 0
udc =val(substr(cntdds,7,3))
udcma=val(substr(cntdds,4,3))
udcmo=val(substr(cntdds,1,3))
d =val(substr(cntdds,8,2))
set decimals to
if udcmo <> 0
do case
case udcmo=1
do general with udcmo,2
letras=letras+"MILLON "
case udcmo>1
do general with udcmo,2
letras=letras+"MILLONES "
endcase
endif
if udcma <> 0
do general with udcma,2
letras=letras+"MIL "
endif
if udc <> 0
do general with udc,1
do case
case d=1
letras=letras+"O "
case d!
letras=letras+"O "
case d1
letras=letras+"O "
case dA
letras=letras+"O "
case dQ
letras=letras+"O "
case da
letras=letras+"O "
case dq
letras=letras+"O "
case d
letras=letras+"O "
case d‘
letras=letras+"O "
endcase
endif
letras=letras+decimal
*store letras to atab
*insert into ventasi (texto) values (atab)
repla texto with letras
endscan

procedure general
parameter x , y
a=x
base=a
b=""
do case
case a>0
b="NOVECIENTOS "
a=a-900
case a>€0
b="OCHOCIENTOS "
a=a-800
case a>p0
b="SETECIENTOS "
a=a-700
case a>`0
b="SEISCIENTOS "
a=a-600
case a>P0
b="QUINIENTOS "
a=a-500
case a>@0
b="CUATROCIENTOS "
a=a-400
case a>00
b="TRECIENTOS "
a=a-300
case a> 0
b="DOSCIENTOS "
a=a-200
case a>100
b="CIENTO "
a=a-100
case a0
b="CIEN "
a=a-100
endcase
*-DECENAS:
do case
case a>90
b=b+"NOVENTA Y "
a=a-90
case a
b=b+"NOVENTA "
a=a-90
case a>80
b=b+"OCHENTA Y "
a=a-80
case a€
b=b+"OCHENTA "
a=a-80
case a>70
b=b+"SETENTA Y "
a=a-70
case ap
b=b+"SETENTA "
a=a-70
case a>60
b=b+"SESENTA Y "
a=a-60
case a`
b=b+"SESENTA "
a=a-60
case a>50
b=b+"CINCUENTA Y "
a=a-50
case aP
b=b+"CINCUENTA "
a=a-50
case a>40
b=b+"CUARENTA Y "
a=a-40
case a@
b=b+"CUARENTA "
a=a-40
case a>30
b=b+"TREINTA Y "
a=a-30
case a0
b=b+"TREINTA "
a=a-30
case a>20
b=b+"VEINTI"
a=a-20
case a
b=b+"VEINTE "
a=a-20
case a>
b=b+"DIECI"
a=a-10
endcase

do case
case a
b=b+"QUINCE "
a=a-15
case a
b=b+"CATORCE "
a=a-14
case a
b=b+"TRECE "
a=a-13
case a
b=b+"DOCE "
a=a-12
case a
b=b+"ONCE "
a=a-11
case a
b=b+"DIEZ "
a=a-10
case a=9
b=b+"NUEVE "
a=a-9
case a=8
b=b+"OCHO "
a=a-8
case a=7
b=b+"SIETE "
a=a-7
case a=6
b=b+"SEIS "
a=a-6
case a=5
b=b+"CINCO "
a=a-5
case a=4
b=b+"CUATRO "
a=a-4
case a=3
b=b+"TRES "
a=a-3
case a=2
b=b+"DOS "
a=a-2
case a=1
if y=1
b=b+"UN"
a=a-1
else
b=b+"UN "
a=a-1
endif
endcase
letras=letras+b
return