vb如何将一串英文后的回车符号去掉？？？

如何用vb将下图中的分段英文自动连成一段。

英文分段 --------------------编程问答-------------------- s="abcd........"

s=replace(s,vbcrlf,"") --------------------编程问答-------------------- s=replace(s,vbcrlf," ") '使用空格代替回车换行会合适点 --------------------编程问答-------------------- 试了一下好像不太行能否费心写个实现了的完整代码 --------------------编程问答-------------------- 先把这段文本选中，然后执行代码。

Sub rep()

Dim sText As String

sText = Selection.Text

sText = Replace(sText, vbCr, " ")

Selection.Text = sText

End Sub

--------------------编程问答--------------------

strLine = Replace(strLine, vbTab, "")     '将tab符替换成""

strLine = Replace(strLine, Chr(0), "")    '将行结束符替换成""

strLine = Replace(strlINE, vbCrLf, "")    '将回车符替换成""

--------------------编程问答-------------------- --------------------编程问答-------------------- 用word一个替换就行了啊，查找替换：查找内容为:^p，替换内容为: ←半角空格
然后点全部替换，ok --------------------编程问答-------------------- 先存到一个记事本中，C:\1.TXT



'┏〓〓〓〓〓〓〓〓〓 OpenFile,start 〓〓〓〓〓〓〓〓〓┓

'［简介］：

'打开文件

Function OpenFile(FileName, Optional ErrInfo As String) As String

   '[mycode_id:19],edittime:2012/9/5 19:48:31

         On Error GoTo Err1

         Dim Fs, TextFile

         Set Fs = CreateObject("Scripting.FileSystemObject")

         Set TextFile = Fs.OpenTextFile(FileName)

         OpenFile = TextFile.ReadAll ' 读取整个文件的信息

         Exit Function

   Err1:

         ErrInfo = Err.Description

End Function

'┗〓〓〓〓〓〓〓〓〓  OpenFile,end  〓〓〓〓〓〓〓〓〓┛

'┏〓〓〓〓〓〓〓〓〓 SaveFile,start 〓〓〓〓〓〓〓〓〓┓

'［详介］：

'保存时有时会乱码或变样

'［简介］：

'保存字符信息到文本文件，保存资料

Function SaveFile(zname, zbody,optional msg as boolean)

   '[mycode_id:177],edittime:2011/9/9 15:29:57

      On Error GoTo err

      Dim myfile, fso

      Set fso = CreateObject("Scripting.FileSystemObject")

      Set myfile = fso.CreateTextFile(zname, True)

      myfile.Write zbody

      Set myfile = Nothing

      Set fso = Nothing

      If msg Then MsgBox "保存成功！" & vbCrLf & zname

      Exit Function

      err:

      'MsgBox err.Description

End Function

'┗〓〓〓〓〓〓〓〓〓  SaveFile,end  〓〓〓〓〓〓〓〓〓┛



SUB TEST

DIM S

S=OPENFILE("C:\1.TXT")

S=REPLACE(S,VBCRLF," ")

SAVEFILE("C:\1.TXT",S)

END SUB

--------------------编程问答--------------------
这段英文在什么数据源中？在一个文件里？一个文本框中？还是在一幅图片中？ --------------------编程问答--------------------

Sub rep()

Dim s As String

s = "......" '你的多段文本

s = Replace(s, vbCr, "")

s = Replace(s, vblf, "")

debug.print "s=["+s+"]"

End Sub

--------------------编程问答-------------------- 请问vba中吧excel中一个sheet中的2000条数据，向oracle批量insert数据有什么好的方式么？循环太慢了感觉。大家有什么好的办法么？谢谢。。不好意思，没分了发不了帖子了，借到问问啊。 --------------------编程问答-------------------- 很久没有关注VB,还是有多年前的老战友一直在这里奋斗啊,很佩服!

补充：VB ,  VBA