由于工作的需要，在word文檔中粘貼了很多表格，表格中的數據有多有少，因此各個表格中出現了數量不等的空行（見圖1），這些空行自然可以手工刪除，但顯然是相當的麻煩，而且工作效率也低。如果是在Excel中進行操作，那么可以快速將相關的空行刪除，但目前的情況下復制轉換相當的不便，有沒有簡單一些的方法呢？
圖1 Word表格中的空格
其實，我們可以利用宏代碼快速刪除Word文檔中的這些空行。按下“Alt+F11”組合鍵打開Microsoft Visual Basic編輯器窗口，依次執(zhí)行“插入→模塊”，在右側窗格中插入一個空白模塊，手工輸入如下代碼：
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
單擊工具欄上的“保存”按鈕進行保存，執(zhí)行“文件→關閉并返回到Microsoft Word”，返回Word窗口之后，按下“Alt+F8”組合鍵，打開“宏”對話框，選中列表框中的“刪除表格空行”宏，單擊右側的“運行”按鈕，很快可以看到圖2所示的效果，是不是很方便？
圖2 Word表格最終效果