Gracias Al Zuwaga, pero tiene un pequeño problemilla la función esa:
A pesar de que los caracteres los pone en mayúsculas, deja los mismos espacios en blanco que tiene la cadena original:
Código:
pepito pérez ----------> Pepito Pérez
He hecho otra función que da los mismos resultados que esa del link (que la verdad, para uno como yo que no se dedica a este mundillo, me parece bastante enrevesada). Es esta, que hace lo mismo:
Código:
function InicialEnMayusculas(cadena)
cadena = Trim(cadena)
'ponemos el primer caracter en mayúsculas
'comenzamos el bucle, más lento, poooooooorque recorreeeeeee letra a letraaaaaaaaaaa
'empezamos con el segundo caracter
For i = 2 To Len(cadena)
'pasamos a la siguiente letra usando la función Mid
'que nos retorna la subcadena incluida dentro de "cadena", empezando
'en la posición "i", y tomando un solo caracter (de ahí el 1),
'y la ponemos en minúsculas
If letra = " " Then
'Si se encuentra con un espacio en blanco, que el siguiente
'caracter lo ponga en mayúsculas
letra = UCase(Mid(cadena, i, 1))
Else
letra = LCase(Mid(cadena, i, 1))
End If
nueva_cadena = nueva_cadena & letra
Next
'Unimos la primera letra con el resto
cadena = primera_letra & nueva_cadena
IncialEnMayusculas=cadena
end function
¿Alguna sugerencia más?. Gracias de nuevo!