利用宏代码快速删除Word文档中的这些空行。按下“Alt+F11”组合键打开Microsoft Visual Basic编辑器窗口,依次执行“插入→模块”,在右侧窗格中插入一个空白模块,手工输入如下代码:
Sub 删除表格空行()
Dim aTable As Table, aRow As Row
Application.ScreenUpdating = False
For Each aTable In ActiveDocument.Tables
For Each aRow In aTable.Rows
If Len(aRow.Range) < aRow.Cells.Count * 2 + 3 Then aRow.Delete
Next
Next
Application.ScreenUpdating = True
End Sub
单击工具栏上的“保存”按钮进行保存,执行“文件→关闭并返回到Microsoft Word”,返回Word窗口之后,按下“Alt+F8”组合键,打开“宏”对话框,选中列表框中的“删除表格空行”宏,单击右侧的“运行”按钮。