Office中国论坛/Access中国论坛

标题: 段落内如何消除每行回车？ [打印本页]

---

作者: 网络浪人    时间: 2010-12-28 13:15
标题: 段落内如何消除每行回车？
word中同一段落的每行文字都被回车换行了，请教如何消除这些换行？

如图。

[attach]44516[/attach]

---

作者: tmtony    时间: 2010-12-28 14:11
换行符换成空格应该可以做到
但问题是不知道哪个是段落的结束.
有可能把所有换行换成空格了

---

作者: pureshadow    时间: 2010-12-28 14:46
如果换行的地方前面空两个的位置是由空格弄出来的，那就好办了：
查找^p，替换为空
再查找两个空格，替换为^p

---

作者: zhuyiwen    时间: 2010-12-28 15:52

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 宏


[attach]44519[/attach]

[attach]44520[/attach]

[attach]44521[/attach]

[attach]44522[/attach]

---

作者: 网络浪人    时间: 2010-12-29 09:08
感谢各位专家指点迷津！！！
    而其中小妖老师的方法既简单，又正好针对我的特殊状况，所以其方法很有效，谢谢！！！

---

作者: 只为省两钱    时间: 2011-4-2 19:48
谢谢4楼，无意中学会了一招

---

作者: 襄阳东海    时间: 2016-10-13 10:40
有没有操作过程视频，这样还是没有完全明白。

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3