sebaoro
04 de Diciembre del 2003

necesito solamente colocar en mayuscula la primera letra de cada palabra lo que quiero mas o menos es esto:
ej:
01_GRACIAS POR TU AYUDA.
RESULTADO:
01_Gracias Por Tu Ayuda.

Baltasar
04 de Diciembre del 2003

aquí tienes:

caprichito=UCase(Left(Texto, 1)) & LCase(Mid(Texto, 2))

Saludos

sebaoro
04 de Diciembre del 2003

muchas gracias y cuenta con migo

Baltasar
04 de Diciembre del 2003

Me he dado cuenta de lo que realmente pedías:

Private Function capricho(t) As String
Dim T1 As String
Dim a As Integer
a = 1
Do While True
If a > Len(t) Then Exit Do
If (Mid(t, a, 1) >= "A" And Mid(t, a, 1) <= "Z") Or (Mid(t, a, 1) >= "a" And Mid(t, a, 1) <= "z") Then Exit Do
a = a + 1
Loop
capricho = UCase(Left(Text1, a)) & LCase(Mid(Text1, a + 1))
End Function


para usarlo: text1=capricho(text1)

Baltasar
04 de Diciembre del 2003

La variable T1 no hace nada, las prisas, ya se sabe:

Private Function capricho(t) As String
Dim a As Integer
a = 1
Do While True
If a > Len(t) Then Exit Do
If (Mid(t, a, 1) >= "A" And Mid(t, a, 1) <= "Z") Or (Mid(t, a, 1) >= "a" And Mid(t, a, 1) <= "z") Then Exit Do
a = a + 1
Loop
capricho = UCase(Left(Text1, a)) & LCase(Mid(Text1, a + 1))
End Function