删除word中的空行

  在平时上网过程中,我们经常将网页上有参考价值的文字信息复制到Word中,进行保存打印。但有时从网页复制下来的文字包含许多空行,使得页数居高不下,阅读和打印都很不方便。

替换法 在用替换法之前,首先要搞清楚文章中的换行符是手动换行符(“Shift+回车”),还是段落标记。其次,还要观察文章中的空行是否有规律性,如一次空一行,还是一次空两行。弄清了这两点,我们就好操作了。笔者以文章的换行符为“段落标记”和“一次空两行”为例讲解。首先,选取文章中要删除空行的文字内容,使其反白显示。然后,单击“编辑” → “替换”,弹出“查找和替换”对话框。依次单击“高级” →“特殊字符” → “段落标记”,输入一个“段落标记”符。用同样的方法,再输入两个“段落标记”符。(若文章中是“人工换行符”,在这里则输入“人工换行符”;若文章空行“一次空一行”,在这里只需输入两个段落标记符)。这时,在“查找和替换”对话框中就出现了三个连续的“^p”。单击“替换为”输入框,用同样的方法输入一个“^p”最后,单击“全部替换”,选中文章中的所有空行就被删除了。如果,文章中的空行没有规律性(如有时空一行,有时空两行),替换法就无能为力了,则用下面的方法来解决。

筛选法“筛选法”就是将Word中含有空行的文本复制到Excel中,然后利用Excel的“筛选”功能筛选出空行,将其删除。首先,将Word中含有空行的文本选中,并单击“编辑”中的“复制”,复制到剪贴板中。然后,打开Excel,单击A1单元格,将剪贴板中的文本粘贴到工作表中。选中“A”列,依次单击“数据” →“筛选” →“自动筛选”。单击A1单元格的筛选按钮,选取“空白”,筛选出空白行,并全部删除。最后,取消“自动筛选”,选取含文本的单元格并复制,切换到word中用“选择性粘贴”→“无格式文本”,粘贴即可。

程序法

用Word打开含空行的文章,依次单击“工具” →“宏” →“Visual Basic编辑器”,打开Visual Basic编辑器。双击“Project”下的“ThisDocument”,打开“代码”输入窗口,将下面的代码输入进去,并保存。

  1. Sub DelBlank()
  2. Dim i As Paragraph, n As Integer
  3. Application.ScreenUpdating = False
  4. For Each i In ActiveDocument.Paragraphs
  5. If Len(i.Range) = 1 Then
  6. i.Range.Delete
  7. n = n + 1
  8. End If
  9. Next
  10. MsgBox "共删除空白段落" & n & "个"
  11. Application.ScreenUpdating = True
  12. End Sub

代码输入完毕,单击“工具栏”中的“运行”按钮,执行这段代码。这时,会弹出一个消息窗口,告诉你一共删除了多少空行软件法

Word空行的删除还可以通过第三方软件来实现。 从http://www.9bb.cn/down.asp?id=5734下载neaiw,并解压。因为neaiw仅支持文本类型的文件,所以,在用neaiw之前得先用Word的“另存为”将文件保存为文本类型文件。关于这种方法其实一般要使用的频率较少,此处不在赘叙,如有兴趣可以在网络上搜索一下  

你可能感兴趣的:(工作,网络,Excel,basic,工具)