Question

word怎么删除多行重复的??

word怎么删除多行重复的 如：不要忧郁，也不要愤慨！
不顺心时暂且克制自己，
不顺心时暂且克制自己，
相信吧，快乐之日就会到来。
假如生活欺骗了你，
相信吧，快乐之日就会到来。
不要忧郁，也不要愤慨！
====================
可不可以删除文档里重复了的字符（保留一个原来的句子）及恢复到：
假如生活欺骗了你，
不要忧郁，也不要愤慨！
不顺心时暂且克制自己，
相信吧，快乐之日就会到来。

Answer 1

 一，记事本的技巧。

将下载内容拷贝到记事本中，再从记事本“复制”“粘贴”到Word文档，这样会自动删除许多空白行。

二，行与行之间的空白行都多了一个回车符。

快捷方式：ctrl+F，弹出如下图的对话框，选择“替换”，在“查找内容”栏中输入“^p^p”，在“替换”栏中输入“^p”，单击“全部替换”按钮。

三，格式调整间距。

按照如图所示，全选内容，点击“开始”—>“样式”，选择“正文”。

四，行与行之间的空白处没有回车符，但感觉宽了很多。

如下图所示，全选内容，点击右键，选择“段落”—>“缩进和间距”,对选项“间距”和行距进行合适的设置，直到满意。

Answer 2

其实也可以理解为“删除重复的段落”（但保留第一个重复值），请参考如下宏代码：Sub KK_DelCF()
On Error Resume Next
Dim para As Paragraph, myRange As Range
ActiveDocument.Content.Find.Execute findtext:="^32", _
replacewith:="", Replace:=wdReplaceAll
For Each para In ActiveDocument.Paragraphs
Set myRange = Range(para.Range.End, ActiveDocument.Range.End)
myRange.Find.Execute findtext:=para.Range.Text, replacewith:="", _
Forward:=True, Replace:=wdReplaceAll
Next
End Sub

Answer 3

只能手动~~~~