Convertir mayúsculas y minúsculas "Tipo frase."
- Son dos funciones que pueden utilizarse en forma independiente o conjunta.
- Lo que hace, es imitar el efecto de "Convertir mayúsculas y minúsculas «Tipo oración.»" del MS Word.
- Es ideal para convertir los textos traídos de un formulario.
Código:
Function TipoFrase(cadenaAconvertir)
contenido = ""
palabra = Split(cadenaAconvertir," ")
For I = 0 To UBound(palabra)
contenido = contenido & LCase(palabra(I)) & " "
Next
PrimeraLetra = UCase(Left(contenido,1))
frase = PrimeraLetra&Right(contenido,Len(contenido)-1)
TipoFrase = frase
End Function
Function TipoParrafo(parrafoAconvertir)
contenido = ""
frase = Split(parrafoAconvertir,". ")
For I = 0 To UBound(frase)
contenido = contenido & UCase(Left(frase(I),1))&LCase(Right(frase(I),Len(frase(I))-1))&". "
Next
parrafo = Left(contenido,Len(contenido)-2)
frase = Split(parrafo,chr(10))
For I = 0 To UBound(frase)
contenido2 = contenido2 & UCase(Left(frase(I),1))&Right(frase(I),Len(frase(I))-1)&chr(10)
Next
TipoParrafo = contenido2
End Function