Word VBA实战技巧：快速删除表格中所有空行

Sub DeleteEmptyRowsWithinTable()
 Dim objTable As Table
 Dim objRow As Range
 Dim objCell As Cell
 Dim iCounter As Long
 Dim lngNumRows As Long
 Dim strStatusBar As String
 Dim blnTextInRow As Boolean

'指定想要操作的表格
 Set objTable = Selection.Tables(1)
'设置变量指向第1行
 Set objRow = objTable.Rows(1).Range
 lngNumRows = objTable.Rows.Count

 Application.ScreenUpdating = False

 For iCounter = 1 To lngNumRows
   strStatusBar = "行" & iCounter
   blnTextInRow = False

   For Each objCell In objRow.Rows(1).Cells
     If Len(objCell.Range.Text) > 2 Then
        '单元格末尾标记实际上有2个字符
         blnTextInRow = True
         Exit For
     End If
   Next objCell

   If blnTextInRow Then
     Set objRow = objRow.Next(wdRow)
   Else
     objRow.Rows(1).Delete
   End If
 Next iCounter

 Application.ScreenUpdating = True
End Sub