WORD：网上粘贴过来的TXT文档，在WORD中无法删除连续2个的换行符！？

来源：百度知道 编辑：UC知道 时间：2024/05/31 11:18:24
1、从网页上粘贴到记事本，再从记事本粘贴到WORD
2、有很多连续2个的换行符，显示为回车符形状（拐弯的箭头）
3、在“替换”功能中把^p^p替换为^p，显示替换0处。。。
4、大多数网页中粘贴过来的都用3中的方法可以消除到多余的空行，但少数不成，总也找不到解决方法！！

复制后在Word中找到"选择性粘贴",用选择性粘贴应该就可以了!!!

http://hi.baidu.com/codesina/blog/item/9856416626ddb920aa184c1f.html
既然是最近的事情，我也来凑凑热闹。
打开你word中的宏编辑器。粘贴下面代码，运行1次。所有没有内容的行都会不见了。
Public Sub delete_empty_line()

Selection.WholeStory
sigma = Selection.Paragraphs.Count

Selection.HomeKey Unit:=wdStory
For i = 1 To sigma
s = Trim(Selection.Paragraphs(1)) ' current paragraph
If Len(s) = 1 Then
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
End If
If Len(s) > 1 Then Selection.MoveDown Unit:=wdParagraph, Count:=1
Next
Selection.HomeKey Unit:=wdStory
End Sub

因为我也喜欢编辑一些文章，也碰到了这个问题，所以费了一些神编写了这个代码，确实蛮有用的。