一、删除单个空白行
方法一:使用鼠标删除
在word文档中,找到需要删除的空白行,将光标放在该行段落符号(?)的末尾处,单击鼠标左键,直至段落符号选中;接着按下delete或backspace键,即可将该空白行删除。
方法二:使用键盘删除
在word文档中,找到需要删除的空白行,将光标放在该行段落符号(?)的末尾处,按下Ctrl+Shift+8组合键,即可选中整个段落;接着按下delete或backspace键,即可将该空白行删除。
二、删除多个空白行
方法一:使用鼠标删除
在word文档中,找到要删除的多个空白行,在第一个空白行的段落符号(?)处单击鼠标左键,直至段落符号选中;接着按下shift键,同时用鼠标在最后一个空白行的段落符号处单击鼠标左键,即可选中多行空白行;接着按下delete或backspace键,即可将多个空白行删除。
方法二:使用VBA删除
在word文档中,按下Alt+F11进入VBA窗口,在窗口左侧的项目资源管理器中,找到要操作的文档,双击打开ThisDocument;在窗口左上角的“插入”菜单中,选择“模块”,在模块中输入以下代码:
Sub DelBlankRows()
Dim Tbl As Table
Dim r As Long
For Each Tbl In ActiveDocument.Tables '循环处理文档中的所有表格
With Tbl '处理当前表格
r = .Rows.Count '获取当前表格的行数
Do While r > 1 '循环删除空白行
If Len(.Cell(r - 1, 1).Range.Text) = 2 And Asc(.Cell(r - 1, 1).Range.Text) = 13 Then
.Rows(r - 1).Delete
End If
r = r - 1
Loop
End With
Next
End Sub
在代码编辑窗口中按下F5,或点击“运行”菜单中的“运行Sub/UserForm”选项,即可执行删除操作。
三、总结归纳
在word中,如果遇到表格文字上面有空白行的问题,可以使用鼠标或键盘的方式删除空白行;如果遇到多个表格空白行需要删除,可以使用鼠标多选加删除,或者使用VBA自动删除空白行的方法。掌握这些方法,可以更加方便地操作word表格,并让文档更加美观整洁。