1，随便打开一个word文档。
2，按下Alt + F11 VBA编辑器,在左侧的「工程资源管理器」窗口中找到Normal 项目,右键选择插入->模块。
弹出一下弹窗
3，输入一下代码
代码：
Sub RemoveEmptyTableRows()Dim tbl As TableDim row As RowDim cell As CellDim i As LongFor Each tbl In ActiveDocument.Tables' 从最后一行向前遍历，避免删除导致索引变化For i = tbl.Rows.Count To 1 Step -1Set row = tbl.Rows(i)Dim isEmptyRow As BooleanisEmptyRow = TrueFor Each cell In row.Cells' 去除单元格中的控制字符并检查是否为空Dim cellText As StringcellText = Replace(Replace(cell.Range.Text, Chr(13), ""), Chr(7), "")If Trim(cellText) <> "" ThenisEmptyRow = FalseExit ForEnd IfNext cellIf isEmptyRow Thenrow.DeleteEnd IfNext iNext tblMsgBox "处理完成！"
End SubCtrl+S保存一下
然后就可以关掉这个窗口，在回到word界面
4，返回Word界面，按下 Alt + F8，选择RemoveEmptyTableRows，再点击运行，即可完成空白行的批处理。
运行结果
