如何在word中去掉指定位置的回车符，
下面的文字：
沉重的打击，使伊蓝由伤心跌落到极度的失望，她想到
过放弃甚至想到过死，但她无法割舍孩子也无法舍弃那本属
于她的一切。她陷人了极度的悲伤，她无力挽回眼前的这一
切，就在走投无路的时候，她的一个朋友把她引荐到了我的
面前。
说句实在话，从她沮丧羞涩的表情里，我大概猜出了她
的遭遇，当然为了咨询工作，我必须从头至尾耐心地听取事
情的全部过程。
伊蓝和丈夫的相识相爱很平常，要说有些世俗的话，就
是漂亮姑娘配.上了一个帅小伙。当年谈恋爱的时候，他们不
管身居何处几乎都是.人们关注的焦点。令他们感到自豪的
是，即便他们随便走在马路上，偶然从人前经过，都会发现人只去掉每行第27和28个字符位置的回车换行符就行了，保证原段落不变。
下面的文字：
沉重的打击，使伊蓝由伤心跌落到极度的失望，她想到
过放弃甚至想到过死，但她无法割舍孩子也无法舍弃那本属
于她的一切。她陷人了极度的悲伤，她无力挽回眼前的这一
切，就在走投无路的时候，她的一个朋友把她引荐到了我的
面前。
说句实在话，从她沮丧羞涩的表情里，我大概猜出了她
的遭遇，当然为了咨询工作，我必须从头至尾耐心地听取事
情的全部过程。
伊蓝和丈夫的相识相爱很平常，要说有些世俗的话，就
是漂亮姑娘配.上了一个帅小伙。当年谈恋爱的时候，他们不
管身居何处几乎都是.人们关注的焦点。令他们感到自豪的
是，即便他们随便走在马路上，偶然从人前经过，都会发现人只去掉每行第27和28个字符位置的回车换行符就行了，保证原段落不变。
[color=#FF0000]红字标题？？？[-color]
那个是版主在管理菜单中执行的＂帖子加亮＂啊，不过我只是＂基础类＂的版主，只有权限操作这个类别里的，目前我采取加亮的标准是：
１,提的问题不能马上得到解答的，或者是提供的有值得收藏的资料
２,提的问题要是看得明白的（否则吸引别人进来看得头晕可不行）
３,如是提问的，还要求给分不太低，最少８０,最好一百以上．这个算是鼓励大家多给分，刺激人气啦．给的分要较高
如这个帖：求助：请各位高手帮助修改一下画图代码，以增加画图速度，谢谢！！！
哇，有８０分啊，赶紧开VB6.其实用VBS的正则查找匹配合适：
说明一下，尽管楼主斩钉截铁地说是换在"第27和28个字符位置的回车换行符"，不过我还是觉得你的本意应是按语意把物理段调整为逻辑段．好在即使你真要是刚好在那个位置，我这个代码你也是好改的Private Sub test1()
txtParas.Text = RegExpSearch(txtParas.Text)
End Sub
Function 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 = RetStr
End Function
还有高手用vba做吗?其实用什么无所谓,要结果.