可以用以下方法取得每行的字符数,然后在每行后加一个会车符
Dim i As Integer
Dim j As Integer
Dim leng As Integer
Dim all As Integer
i = SendMessage(Me.Text1.hwnd, EM_GETLINECOUNT, 0, 0)
For j = 1 To i
leng = SendMessage(Me.Text1.hwnd, EM_LINELENGTH, all + 1, 0)
all = leng + all
Next