段落内如何消除每行回车？

网络浪人

word中同一段落的每行文字都被回车换行了，请教如何消除这些换行？

如图。

tmtony

换行符换成空格应该可以做到
但问题是不知道哪个是段落的结束.
有可能把所有换行换成空格了

pureshadow

如果换行的地方前面空两个的位置是由空格弄出来的，那就好办了：
查找^p，替换为空
再查找两个空格，替换为^p

zhuyiwen

1. 
   
2. Sub TrimP()
   
3. Dim r As Range
   
4. Set r = Selection.Range
   
5. 
   
6. Do While Selection.Range.Paragraphs.Count > 1
   
7. With Selection.Find
   
8. .Text = "^p"
   
9. .Replacement.Text = ""
   
10. .Forward = True
    
11. .Wrap = wdFindAsk
    
12. .Format = False
    
13. .MatchCase = False
    
14. .MatchWholeWord = False
    
15. .MatchByte = True
    
16. .MatchWildcards = False
    
17. .MatchSoundsLike = False
    
18. .MatchAllWordForms = False
    
19. End With
    
20. Selection.Find.Execute Replace:=wdReplaceOne
    
21. r.Select
    
22. Loop
    
23. End Sub

复制代码

先选择要去掉回车的所有段落，然后执行 TrimP 宏

网络浪人

感谢各位专家指点迷津！！！
    而其中小妖老师的方法既简单，又正好针对我的特殊状况，所以其方法很有效，谢谢！！！

只为省两钱

谢谢4楼，无意中学会了一招

襄阳东海

有没有操作过程视频，这样还是没有完全明白。