word VBA实现删除回车符的方法，谢谢！

写一段WORD VBA程序，如下：

我从网上复制到word中的试题，有很多的回车符，例子如下:

1.以下正^p
确答案是( )。^p
A.答案就^p
是我。^p
B.答案就是我。^p
2.以下错误的是( )。^p
A.……

要求：查找句末是否有换行符，如果句末为换行符，则判断换行符的后一段话是否以字母或者数字开头，如果不是则删除换行符，如果是则不替换这个换行符进行下一次判断，直到文本结束。
或者其它方法达成目的也行。

1，录制宏
2，替换法，chr(13)就是回车符。
这事替换就搞定了，为什么要用VBA？？

因为粘贴后多出来的空白页，就是新建的文档时原来的空白页面，只需在保存前发送一个backspace键就可删除，代码如下： option explicit sub splitpagesasdocuments()     dim osrcdoc as document, onewdoc as document     dim strsrcname as string, strnewname as string     dim orange as range     dim nindex as integer     dim fso as object     set fso = createobject("scripting.filesystemobject")    '定义文件对象变量     set osrcdoc = activedocument    '设定当前文档对象     set orange = osrcdoc.content    '设定当前文档内容对象     orange.collapse wdcollapsestart    '将光标移动到文档开头     orange.select    '选定文档内容     for nindex = 1 to activedocument.content.information(wdnumberofpagesindocument)    '循环遍历文档每个页面         osrcdoc.bookmarks("\page").range.copy    '复制当前页面内容         osrcdoc.windows(1).activate    '显示当前文档窗口         application.browser.target = wdbrowsepage    '跳转显示下一页         application.browser.next         strsrcname = osrcdoc.fullname    '获取当前文档名         strnewname = fso.buildpath(fso.getparentfoldername(strsrcname), _                      fso.getbasename(strsrcname) & "_" & nindex & "." & fso.getextensionname(strsrcname))    '定义新文档名         set onewdoc = documents.add    '新建文档         selection.paste    '将复制的页面粘贴到新文档中         selection.typebackspace    '发送回退按键，删除多余页面         onewdoc.saveas strnewname    '用新文档名保存         onewdoc.close false    '关闭新建文档     next     set onewdoc = nothing     set orange = nothing     set osrcdoc = nothing     set fso = nothing     msgbox "结束！" end sub