利用vba，先查找后替换

诡天翼1988

我有如下的几段内容，想删除【答案】与【解析】之间的回车，请教一下，如何利用vba来实现，现在的例子是只有两个区域，实际的文档中有很多都是这样的。
【答案】46. disabled     
47. vegetables   
48. politely   
49. twelfth   
50. celebrate
【解析】
C. So good leaders are very important.
D. In short, being a good leader needs courage and practice.
E. Don’t you want to know why they are so successful?
【答案】41. C    42. A   
43. E    44. B   
45. D
【解析】

gwjkkkkk

模拟一下结果。。。

诡天翼1988

想要的结果是这样的：
【答案】46. disabled     47. vegetables   48. politely   49. twelfth   50. celebrate
【解析】
C. So good leaders are very important.
D. In short, being a good leader needs courage and practice.
E. Don’t you want to know why they are so successful?
【答案】41. C    42. A   43. E    44. B   45. D
【解析】

过客fppt

诡天翼1988 发表于 2024-8-8 08:59
想要的结果是这样的：
【答案】46. disabled     47. vegetables   48. politely   49. twelfth   50. cel ...

你的文档中都是手动换行符，不是段落标记，以下是代码和结果

batmanbbs

过客fppt

过客fppt 发表于 2024-8-8 09:30
你的文档中都是手动换行符，不是段落标记，以下是代码和结果

不对，说错了，因为我是从网页中复制的，所以全部都是手动换行符，所以你把代码中的 ^l 修改为 ^p 即可，如果不是WPS，则需要修改为 ^13

过客fppt

batmanbbs 发表于 2024-8-8 09:33

还是batmanbbs老师厉害，我到现在才有点理解.Duplicate
我本来也是想查找到对应的内容，对.Parent再次进行.find操作删掉回车，结果没有实现，原来可以操作.Duplicate，学到了

过客fppt

这是学习batmanbbs老师改进的代码：

诡天翼1988

过客fppt 发表于 2024-8-8 11:32
这是学习batmanbbs老师改进的代码：

两位老师的代码，在删除.setrange 这一行后，都可以正常运行，加上这一行内容之后，提示语法错我。 我用的是2021版本的word.

诡天翼1988

我写成：
.Range.Start = .Start
.Range.End = .End - 5

和
.Range(Start:=.Start, End:=.End - 5) ，
都是提示语法错误。  现在我是删除这一行代码之后，再通过查找替换把多删除的回车加上去。