word中跨多行如何删除

1.Word中如何去除多行空行

以word2007为例：

1、打开word文档，单击“开始”菜单下的“替换”命令，在弹出的“查找和替换”对话框中单击“查找内容”右侧的输入框，单击“更多”按钮。

2、单击“特殊格式”按钮，单击“段落标记”命令，再次单击“特殊格式”按钮，单击“段落标记”命令（输入2个段落标记^p^p）。

3、在“查找和替换”对话框中单击“替换为”右侧的输入框，单击“特殊格式”按钮，单击“段落标记”命令（输入1个段落标记^p），单击“全部替换”按钮。

4、在弹出的提示框中单击“确定”按钮，重复按“全部替换”直至空行全部删除。

2.怎么撤销WORD文档多余的行

【去掉Word中的所有空行】使用宏 /show.asp?id=41

宏其实是个好东西，只不过平常比较少人去接触它。并且出于安全性的考虑，Word默认的情况下是没有启用它的，需要先进行安全性设置，允许你自己选择是启用宏，还是不启用宏。它其实是一段VB小程序，事实上，Word的大部分功能就是使用宏编写出来的，只不过它们已经经过内置设定，使用者在GUI界面操作它们，根本不知道它们实际上是怎么来的。知道了这些知识背景之后，对宏大概没有那么抵抗心理了吧？好，只要把下面这段VB代码，复制到你的自定义宏库中去，然后运行它，就可以一键消除所有的空行了！具体办法：

1：打开WORD，打开“工具-宏-Visual Basic编辑器”，在Visual编辑器左边，你会看到工程-project栏目，栏目中一般会包含两个项，一个是“Normal”，另一个是 “Project(Doc1)”，其中（Doc1）是你所打开的WORD文档的名称。前者为WORD共用程序库，后者为单一文档程序库。如果你把代码写在前者里面，那你本机在本机的其它文档中，也可以使用，是“共用”的程序库；若为后者，则只有所在文档才能使用，同时，也可以能过拷贝具体文档，将宏带者，前者则不行。

2：双击期中的“Thisdocument”（两者任选），打开代码输入窗口，在其中输入以下代码：

Sub KillEmptyRows()

'删除空行，by不见不散，2006-1-15

Dim p As Paragraph

Dim r As Range

Dim s As String

Dim l As Long

For Each p In ActiveDocument.Paragraphs

Set r = p.Range

s = CStr(r.Text)

l = Asc(s)

If (l = 13 Or l = 11) Then r.Text = ""

Next p

End Sub

保存，关闭Visual Basic编辑器，返回WORD界面。此时再打开“工具-宏”，在“宏的位置”中选择“所有模版和活动文档”（因为不知道你是存在模版中，还是在单个文档中，此选择可以保证两者皆可显示），你会在上方窗口的“宏名”中看到一个 KillEmptyRows的宏，选择运行即可！

3.word2003中怎样删除多余的行

为了解决你的这个问题，我专门去下载了这篇文章，最后得出的方法，简单到要死啊，你在“等”字后边的“。”后边按“del”键或者敲回车就可以了，因为句号后边有个不清楚是什么格式的 空格 ，这个空格只要后边跟随了图片，且图片的宽度有超出所在行的容纳极限就会带着该行最后的一个汉字及之间的内容移动到下一行。

为了了解真实原因，我上网上查了一下，得出了正确的答案：你的“等”字后边的“。”后边有一个“非间断空格”（在word中为了防止某些特定的词组被分到不同行中，设置了该空格，该空格的输入方法为ctrl+shift+空格键），因此word将“等。+该空格+图片”认为是一个整体，如果上一行不能全部显示，就会被全部移到下一行，就是这么回事。

4.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、然后单击上面的执行按钮即可。