Seleccionar mediante VBA sólo las cifras de un string que tiene cifras y texto

Hola Héctor,

Estupendo, ahora funciona, gracias.

Dos dudas:

1.- El código reemplaza las cifras en números por cifras en palabras en todo el ducumento, no solamente en el texto seleccionado. Es más, funciona sin seleccionara nada.

¿Cómo podría modificarlo para que "actúe" sólo en el texto seleccionado?

2.- Para cifras con decimales, ¿Se puede incorporar la coma y el punto para que los considere como separador decimal al estar entre dos dígitos?

Gracias

Saludos

Francesca

Public Function NumLetras(ByVal Numero As Double, ByVal estilo As Integer) As String

hola, Fran !

dependiendo del rango de valores que administre tu funcion para el argumento estilo (0 a 4 ?, o 1 a 3 ?, o ???) y del que prefieras para la "salida" de la funcion (mayusculas, minusculas, ???)...

cambia esta linea de la propuesta original:

            .Replacement.Text = CStr(EnLetras(Serie(n)))

por esta otra:

            .Replacement.Text = CStr(NumLetras(Serie(n), 1))

(cambia el 1 por el "estilo" que prefieras)

saludos,

hector.

Hola Héctor,

Así:

Public Function NumLetras(ByVal Numero As Double, ByVal estilo As Integer) As String

Saludos

Fran

... me devuelve un error de compilación: El argumento no es opcional.

Y queda seleccionado el nombre de mi función, la que escribí en lugar de EnLetras ...

hola, Francesca !

eso significa que en la definicion de tu funcion se solicita mas de un argumento (ademas del valor a convertir), p.e. la funcion que yo utilice esta definida de la siguiente forma:

Function EnLetras(valor) As String

  ' aqui el codigo del procedimiento ... '

End Function

como esta definida la que usas (primera linea) ?

saludos,

hector.

Hola Héctor,

Gracias por tu código. Lo probé y me devuelve un error de compilación: El argumento no es opcional.

Y queda seleccionado el nombre de mi función, la que escribí en lugar de EnLetras

¿Ayuda???

Saludos

Francesca