Cita:
Iniciado por MeXiCaN Te importaría exponer el pseudocódigo!!
Éste es el Código, nos vemo.... espero te sirva
Código:
Dim AllCr As Long
Dim PreTxt As String
Dim PostTxt As String
Do
AllCr = AllCr + 1
If AllCr > Len(Text1) Then Exit Do
ThisCr = Mid(Text1, AllCr, 1)
If InStr(1, "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ ", UCase(ThisCr)) = 0 Then
PreTxt = ""
If AllCr > 1 Then
PreTxt = Left(Text1, AllCr - 1)
End If
PostTxt = Mid(Text1, AllCr + 1, Len(Text1) - AllCr)
Text1 = PreTxt & " " & ThisCr & " " & PostTxt
AllCr = AllCr + 2
End If
Loop