Word文档空行删除方法

在日常工作中，我们经常需要从网上复制文字材料，但往往遇到一个问题：从网页上复制的文字在粘贴到文本编辑器中时，会夹杂着大量的空行。手动删除这些空行既费时又费力。下面我将介绍两种通过编写代码高效解决这一问题的方法。

一、利用Word的宏功能

对于那些连续的多行空行，或者在空行中存在数量不等的空格字符的情况，Word的宏功能可以大展身手。创建一个名为DBL的宏，代码及注释如下：

```vb

Sub DBL()

i = 1

Do

'从文档的开头开始，逐段选择文档内容

ActiveDocument.Paragraphs(i).Range.Select

If Trim(Selection.Text) = Chr(13) Then

'如果选中的段落只有回车符和空格，则删除该段落

Selection.Delete

Else

'如果段落非空，则将指针移动到下一个段落

Selection.MoveDown

i = i + 1

End If

Loop Until i = ActiveDocument.Paragraphs.Count

End Sub

```

完成宏的编写后，你可以将其拖拽到快捷工具栏上。当你需要从网页上复制文字到Word进行编辑时，只需单击一次这个宏按钮，即可瞬间删除整篇文档中的空行。

二、使用网页脚本语言（VBScript）处理

如果你使用的是金山WPS系列的字处理软件，而没有安装Word和UltraEdit等软件，你可以尝试使用微软的VBScript来处理删除空行的问题。这种方法适用于安装了Windows操作系统的机器，通常办公室里的机器都可以执行。

这种方法与Word宏不同，它需要在执行脚本时创建一个新的文本文件（以下简称B文件），然后从源文件中逐行读取文字，并将非空行的内容写入B文件。这样，B文件中就不会有空行了。

为了完成这一任务，你需要新建一个文本文件，将文件的扩展名改为.vbs。在记事本中打开该文件，并输入以下脚本代码：

```vbscript

Const ForReading = 1, ForWriting = 2, TristateUseDefault = -2

Dim fsoA, fA, tA, fsoB, fB, tB, s, dir

'如果脚本文件和源文件在同一目录下，直接输入源文件的文件名和扩展名即可

dir = inputbox("请输入源文件的路径或相对路径:")

if dir <> "" then

'初始化A文件的对象

Set fsoA = CreateObject("Scripting.FileSystemObject")

Set fA = fsoA.GetFile(dir)

Set tA = fA.OpenAsTextStream(ForReading, TristateUseDefault)

'创建并初始化B文件的对象

Set fsoB = CreateObject("Scripting.FileSystemObject")

fsoB.CreateTextFile("_“ + dir) '创建新文件时加下划线作为文件名前缀

Set fB = fsoB.GetFile("_“ + dir) '获取新文件的对象引用以进行写操作

Set tB = fB.OpenAsTextStream(ForWriting, TristateUseDefault) '打开新文件以进行写操作并准备写入内容到该文件。注意使用trim函数来删除字符串两端的空格或空字符，确保不会写入空行到新的文件中。这样你就可以得到一个没有空行的文本文件了。保存脚本文件后退出记事本应用程序即可使用此脚本删除空行。双击脚本文件即可执行程序完成后会自动生成一个新文件在原始文件名前加上下划线作为区分打开它即可发现空行已被成功清除掉啦！