Juan
05 de Abril del 2004

Hola, muchas gracias por leer.
El problema es que necesito borrar de un texto los enter, no se si me explico, una linea en blanco, no se como hacer, para borrar una palabra uso este codigo:

Private Sub Command1_Click()
palabra = "hola"
Text1 = Replace(Text1, a, vbNullString)
end sub

Ahora, el problema es como hago para reemplazar los enters.
gracias

en?
05 de Abril del 2004

esto elimina todas las lineas en blanco, por si acaso hay más de un salto de línea consecutivo:

While InStr(1, Text1, vbCrLf & vbCrLf)
Text1 = Replace(Text1, vbCrLf & vbCrLf, vbCrLf)
Wend