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