由于工作的需要，在word文档中粘贴了很多表格，表格中的数据有多有少，因此各个表格中出现了数量不等的空行（见图1），这些空行自然可以手工删除，但显然是相当的麻烦，而且工作效率也低。如果是在Excel中进行操作，那么可以快速将相关的空行删除，但目前的情况下复制转换相当的不便，有没有简单一些的方法呢？

图1 word表格中的空格

　　其实，我们可以利用宏代码快速删除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”组合键，打开“宏”对话框，选中列表框中的“删除表格空行”宏，单击右侧的“运行”按钮，很快可以看到图2所示的效果，是不是很方便？

图2 word表格最终效果