14/Sep/05 13:23
Si deseas que reemplace el texto inserta estas macros:
[code:1:32ee915d73]Sub Mayusculas()
For Each Cell In Selection
If Cell.HasFormula = False And Cell.Value <> "" Then
Cell.Value = StrConv(Cell.Value, vbUpperCase)
End If
Next
End Sub
Sub Minusculas()
For Each Cell In Selection
If Cell.HasFormula = False And IsEmpty(Cell) = False Then
Cell.Value = StrConv(Cell.Value, vbLowerCase)
End If
Next
End Sub
Sub Nom_Propio()
For Each cell In Selection
If cell.HasFormula = False Then
cell.Value = StrConv(cell.Value, vbProperCase)
End If
Next
End Sub
Sub Titulo()
For Each Cell In Selection
If Cell.HasFormula = False And IsEmpty(Cell) = False Then
l = Len(Cell.Value)
Cell.Value = UCase(Left(Cell.Value, 1)) & LCase(Mid(Cell.Value, 2, l))
End If
Next
End Sub[/code:1:32ee915d73]
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
