Microsoft Office Forums - View Single Post - [Solved] problem with deleting empty rows MS Word VBA

macropod · 08-17-2017, 02:55 PM

Try:

Code:

Sub DeleteEmptyRows()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl
    For r = .Rows.Count To 1 Step -1
      If .Rows(r).Cells.Count > 1 Then
        If Len(.Cell(r, 2).Range.Text) = 2 Then .Rows(r).Delete
      End If
    Next
  End With
Next
Application.ScreenUpdating = True
End Sub

Note: As coded, the macro processes all tables in the document.