Hi
I assume you only want to slip the cells with carriage return in?
If so, this is not stikley speaking wrapped text, but never ming the semantic (although in certain cirumstances this is cruicial!
I also don't know how you are populating the speadsheet, but it by VBA ans automation (it's the only way be in full control!), the the first sub below illustrate a way of determinig the Ascii charaters of the text, which revials the carriage return is asci 10 and 13.
The second sub splits the text ito an array at the carriage return (Chr(10)), and then removes Chr(13), and prints each line to screen. You will not that there is an extra carriage return at the end which reurns a Null string in this code.
At this point you can do what you like with the line of text!
Code:
Sub GetCharacters()
Dim i As Integer
Dim strText As String
strText = Range("K2")
MsgBox strText
For i = 1 To Len(strText)
MsgBox Mid(strText, i, 1) & " = ascii character No. " & Asc(Mid(strText, i, 1))
Next i
End Sub
Sub SpiltText()
Dim i As Integer
Dim strText As String
Dim strNewText() As String
strText = Range("K2")
strNewText() = Split(strText, Chr(10))
MsgBox UBound(strNewText)
For i = 0 To UBound(strNewText)
strNewText(i) = Replace(strNewText(i), Chr(13), "")
MsgBox strNewText(i)
If strNewText(i) = vbNullString Then MsgBox strNewText(i)
Next i
End Sub
HTH
MTB
dBforums
>
Splitting wrapped text
02-10-12, 06:02
Linear Mode
