我们在使用Word文档中，有时会出现一些多余的空白段落。这样的空白段落的典型特征是其只有一个硬回车，在对文档编辑时可以通过使用“Delete”依次删除这些硬回车来删除这样的空白段落。实际上，通过编写简单的VBA代码可以快速实现对这类空白段落的删除，具体的方法就是在代码中对所有段落进行判断，判断其长度是否为1，如果是就删除该段落。下面介绍快速删除Word 2016文档段落中的硬回车的具体操作方法。
操作步骤
1.启动Word 2016并打开需要处理的文档，该文档中存在多余的空白段落，如图1所示。
2.按“Alt+F11”键打开Visual Basic编辑器，在“工程资源管理器”窗格中右击需要处理文档所对应的工程，在打开的快捷菜单中选择“插入”|“模块”命令，如图2所示。
3.此时将插入一个模块，在该模块的代码窗口中输入程序代码，如图3所示。具体的程序代码如下。
|
1
2
3
4
5
6
7
8
|
Sub Del()Dim temp As ParagraphFor Each temp In ActiveDocument.ParagraphsIf VBA.Len(temp.Range)=1 Thentemp.Range.DeleteEnd IfNextEnd Sub |
4.按“F5”键执行该过程，文档中的空白段落被直接删除，如图4所示。
