word中 删除多余的行 如何删除

1.word中 删除多余的行 如何删除

空行，可能是段落标记（^p），也可能是换行符（^l），所以：

编辑 → 替换

查找内容：[^11^13]{1,}

替 换 为：^p

高级 → √使用通配符 → 全部替换 即可。

'补充----------

看了文档，原来所谓的“空行”还有超链接，用正常方法难以处理，所以建议用宏来实现。

宏代码：

Sub DelBlaPar()

Dim Par As Paragraph

With ActiveDocument.Content.Find

.ClearFormatting

.Replacement.ClearFormatting

.Execute findtext:="^l", replacewith:="^p", MatchWildcards:=True, Replace:=wdReplaceAll

End With

For Each Par In ActiveDocument.Paragraphs

If Len(Par.Range) < 2 Then

Par.Range.Delete

End If

Next

End Sub

代码使用方法：

1、先安装OFFICE2003（完全安装或者一定要安装宏控件）

2、打开文档之后 -工具 → 宏 → VB编辑器；或者直接按 Alt + F11 也可以进入VB编辑器；

3、找到当前文档名称下面的 ThisDocument，双击这个 ThisDocument;

4、然后将代码粘贴在右边的空白窗口里面；

5、光标定位到代码里面，就是代码中间的任意位置；

6、然后单击上面的执行按钮即可。