多种方法删除Word文档中空行由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“word批量删除空行技巧”。
多种方法删除Word文档中空行
从网上copy到Word文档中的内容中常常含有大量的空行，表格以及小广告图片。不但有碍观瞻还占用空间，我们可以利用文本文档的过滤功能过滤掉那些枝节，但大量的空行却依然存在，这里我提供几种删除空行的方法：
方法一：（格式转换法完美删除全部空行）
1.2.3.4.5.方法二：（替换法逐步删除空行）
1.2.3.4.方法三：（彻底过滤掉图片和表格，删除绝大部分空行）
1.2.3.方法四：（编程完全删除所有空行，更具有普遍性）
将文档存为文本文档，再将以下代码copy到VB的标准EXE中，运行
Private Sub form_load()
Me.Hide
Dim Lput, Path, Meage
Path= InputBox(“请输入原文本文件路径：”, “路径”)
If Len(Path)= 0 Then
Meage = MsgBox(“原文件路径不能为空!”, 0 + 16 + 0, “出错”)
Path = InputBox(“请输入原文件路径：”, “路径”)
End If
Open Path For Input As #1
Open “C:WINDOWSDesktop新文件.txt” For Output As #2
Do While Not EOF(1)
Line Input #1, Lput
If Len(Lput)Then Print #2, Lput
Loop
Close #1
Close #2 打开该word文本—“Ctrl+A”—“Ctrl+X”;打开一个新的文本文档—“Ctrl+V” 另存为Word文档 打开该word文本—“Ctrl+A”—“Ctrl+H”（打开“查找和替换”对话框）。在“查找内容”文本框中输入“^p^p”—在“替换为”文本框输入“^p”。单击“全部替换”—文档中连续两个以上的段落标记全部减少为一个段落标记。如没完全删除完，可再重复一两次。打开该word文本—“Ctrl+A”;点击“表格”－“转换”－“文字转换成表格”—“改列数为2“ 紧接上一步，单击“表格”－“合并单元格” 点击“表格”－“转换”－“表格转换成文字” “确定”，这样就OK了
Meage = MsgBox(”新文件在桌面“ + Chr(13)+ ”名为“新文件”“, 0 + 0 + 64, ”成功")End Sub
