怎么在word中去掉指定位置的回车符

如何在word中去掉指定位置的回车符？
如何在word中去掉指定位置的回车符，
下面的文字：
 沉重的打击，使伊蓝由伤心跌落到极度的失望，她想到
过放弃甚至想到过死，但她无法割舍孩子也无法舍弃那本属
于她的一切。她陷人了极度的悲伤，她无力挽回眼前的这一
切，就在走投无路的时候，她的一个朋友把她引荐到了我的
面前。
  说句实在话，从她沮丧羞涩的表情里，我大概猜出了她
的遭遇，当然为了咨询工作，我必须从头至尾耐心地听取事
情的全部过程。
  伊蓝和丈夫的相识相爱很平常，要说有些世俗的话，就
是漂亮姑娘配.上了一个帅小伙。当年谈恋爱的时候，他们不
管身居何处几乎都是.人们关注的焦点。令他们感到自豪的
是，即便他们随便走在马路上，偶然从人前经过，都会发现人

只去掉每行第27和28个字符位置的回车换行符就行了，保证原段落不变。

[解决办法]
http://topic.csdn.net/u/20100325/16/f28218b7-6283-4156-a093-769c17664510.html
[color=#FF0000]红字标题？？？[-color]
那个是版主在管理菜单中执行的＂帖子加亮＂啊，不过我只是＂基础类＂的版主，只有权限操作这个类别里的，目前我采取加亮的标准是：
１,提的问题不能马上得到解答的，或者是提供的有值得收藏的资料
２,提的问题要是看得明白的（否则吸引别人进来看得头晕可不行）
３,如是提问的，还要求给分不太低，最少８０,最好一百以上．这个算是鼓励大家多给分，刺激人气啦．

给的分要较高
如这个帖：求助：请各位高手帮助修改一下画图代码，以增加画图速度，谢谢！！！


哇，有８０分啊，赶紧开VB6.其实用VBS的正则查找匹配合适：
说明一下，尽管楼主斩钉截铁地说是换在"第27和28个字符位置的回车换行符"，不过我还是觉得你的本意应是按语意把物理段调整为逻辑段．好在即使你真要是刚好在那个位置，我这个代码你也是好改的

VB code

Private Sub test1()    txtParas.Text = RegExpSearch(txtParas.Text)End SubFunction RegExpSearch(ByVal str原文 As String) As String  Dim regEx, vMatch As Match, Matches      ' Create variable.  Dim RetStr As String, strSubValue As String, strText As String'  Dim str原文 As String: str原文 = txtParas.Text'  Set regEx = New RegExp         ' 创建一个RegExp对象，前期绑定，需引用库Microsoft VBScript Regular Expressions 5.5   Set regEx = CreateObject("VBScript.RegExp")  '后期绑定  regEx.Pattern = "(.+)\r\n"         ' Set pattern.  regEx.IgnoreCase = True         ' Set case insensitivity.  regEx.Global = True         ' Set global applicability.  Set Matches = regEx.Execute(str原文)   ' Execute search.  For Each vMatch In Matches      ' Iterate Matches collection.    strSubValue = Trim$(vMatch.SubMatches(0))    '去首尾空格    RetStr = RetStr & strSubValue'    If (LenW$(strText) = 26) Then    If (Right$(strSubValue, 1) = "。") Then        RetStr = RetStr & vbCrLf    '很可能是到的逻辑上的段尾，加回车换行符吧    End If      Next  RegExpSearch = RetStrEnd Function