Macro Word para convertir números a letras
Me gustaría saber si alguien dispone de alguna Macro en Word para poder convertir números por letras. La función \*CardText limita mucho, pero la siguiente macro funciona super bien, sólo con un detalle... Escribe las cifras en femenino:
Declare Sub Recibo Lib "dlltcast.dll" (cifra As Long, ByVal texto As String) Function letras(minumero) Dim texto As String * 255 Dim cifra As Long texto = String(255, 0) cifra = CLng(minumero) Call Recibo(cifra, texto) letras = texto End Function
¿Cómo se hace para que lo haga en masculino?
1 Respuesta
La función que muestras es una función creada para excel precisamente porque en excel no exitia la posibilidad de realizarlo, Microsoft creo la función hace mucho tiempo y la moneda en España era "la peseta" de ahí que la función aparezca en femenino, ahora tenemos el Euro pero la función nadie la ha modificado, esta función esta basada en una librería DLLTCAST.DLL que se debe de instalar en Windows/System y que en base a las instrucciones que has puesto en tu consulta utiliza esa librería para ejecutarla, pero el resultado es en femenino.
Para Word tienes que utilizar la función CardText, y una macro que te puede servir es esta:
Sub Num_Letra()
Dim numero As String
numero = InputBox("Escriba el numero a convertir")
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"= " & numero & "\*cardtext", PreserveFormatting:=True
End SubTe pedirá que pongas el numero y al aceptar en el lugar donde tengas el cursor pondrá la cantidad en letra actualizando los campos con F9 y con Control+F8 vuelves a ver los códigos de campo.
Muy amable, y nuevamente gracias.
muy buena función, muchas gracias - Firenze Ma