---
layout:     post   				    # 使用的布局（不需要改）
title:      批量删除WORD空行的方法 				# 标题 
subtitle:      MS Office 疑难解答                 #副标题
date:       2019-10-29 				# 时间
author:     Duter2016 						# 作者
header-img: img/tag-bg-o.jpg 	#这篇文章标题背景图片
header-mask: "0.1"                    # 博文页面上端的背景图片的亮度，数值越大越黑暗
catalog: true 						# 开启catalog，将在博文侧边展示博文的结构
istop: false            # 设为true可把文章设置为置顶文章
music-id:        # 网易云音乐单曲嵌入
music-idfull:         # 网易云音乐歌单嵌入
tags:								#标签
    - MS Office
    - 疑难解答
---

### 采用Word自带的替换功能批量删除空行
批量删除空行，采用Word自带的替换功能即可，具体操作如下：  

1、在文档编辑状态按`Ctrl+H`，打开Word的替换对话框，在查找输入框中输入“`^p^p`”（无引号），在替换为对话框中输入“`^p`”，按“全部替换”即可。

**解释**：“`^p`”表示的是word里面的回车，连续两个“`^p`”表示的就是两个回车，这样表示当然就是指的有冗余的空行的时候了，毫无疑问，
将连续两个回车替换成一个，就删除了其中一个，如果这样的情况很多，在完成一次全部替换之后再多操作几次即可。

2、跟第一种情况类似，只是在查找输入框中输入的是“`^l^l`”。这种情况普遍出现在从网页中直接复制文字到WORD的时候，“`^l`”可以理解为Ctrl+Enter所实现的换行。

### 用宏来删除word里的空行
用宏来删除word里的空行的方法：

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

```
Sub DelBlank()
Dim i As Paragraph, n As Integer
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
MsgBox “共删除空白段落” & n & “个”
Application.ScreenUpdating = True
End Sub
```

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