Este código pode ser melhoarado;
Devemos incrementar para separar corretamente as sílabas no final da linha.
Uso a função abaixo para remover caracteres estranhos do texto, por exemplo o Enter no final da linha ou em qualquer posição.
Variavel = TextoLimpo(rsarea!Obs)
Public Function TextoLimpo(Texto As String) As String
On Error Resume Next
Dim x As Integer
Dim Linha As String
For x = 1 To Len(Trim(Texto))
If Mid(Texto, x, 1) = vbCrLf Or _
Mid(Texto, x, 1) = vbCr Or _
Mid(Texto, x, 1) = vbLf Or _
Mid(Texto, x, 1) = vbNewLine Or _
Mid(Texto, x, 1) = vbNullChar Or _
Mid(Texto, x, 1) = vbNullString Or _
Mid(Texto, x, 1) = vbObjectError Or _
Mid(Texto, x, 1) = vbTab Or _
Mid(Texto, x, 1) = vbBack Or _
Mid(Texto, x, 1) = vbBack Or _
Mid(Texto, x, 1) = vbFormFeed Or _
Mid(Texto, x, 1) = vbVerticalTab Then
Linha = Linha & " "
x = x + 1
Linha = Linha & ""
Else
Linha = Linha & Mid(Texto, x, 1)
End If
Next
TiraEnter = Linha
End Function
Abs,
Jayme