Удаление пустых строк в таблице ворда

    Dim oTable As Word.Table
    Dim lRowLength As Long
    Dim sRowText As String
    Dim i As Long
 
    For d = 1 To 400
         Set oTable = ActiveDocument.Tables(d)
         lRowLength = oTable.Columns.Count + 1
              Application.ScreenUpdating = False
               For i = oTable.Rows.Count To 1 Step -1
                   sRowText = oTable.Rows(i).Range.Text
                  sRowText = Replace(sRowText, Chr(13), "")
                  If Len(sRowText) = lRowLength Then
                  oTable.Rows(i).Delete
            End If
        Next i
        Application.ScreenUpdating = True
        Next d
        MsgBox "Код завершил работу", vbInformation
    
End Sub

Dim oTable As Word.Table
Dim lRowLength As Long
Dim sRowText As String
Dim i As Long, j As Long
 
Application.ScreenUpdating = False
For d = 1 To ActiveDocument.Tables.Count 'только по таблицам текущего документа
  Set oTable = ActiveDocument.Tables(d)
  lRowLength = oTable.Columns.Count' число колонок
  For i = oTable.Rows.Count To 1 Step -1 'перебор строк снизу вверх
    For j = 1 To lRowLength Step 1 перебор ячеек слева направо в выбранной строке
      sRowText = Trim(Replace(Replace(oTable.Cell(i, j).Range.Text, Chr(13), ""), Chr(7), "")) 'текст в ячейке без спецсимволов
      If Len(sRowText) = 0 Then 'если встретилась пустая ячейка
        oTable.Rows(i).Delete ' удалим строку
        Exit For 'прервём цикл по ячейкам строки
      End If
    Next j
  Next i
Next d
Application.ScreenUpdating = True
MsgBox "Код завершил работу", vbInformation

For i =  ... To ...

Dim oTable As Word.Table
Dim i As Long, j As Long, d As Long, xStr As String
 
Application.ScreenUpdating = False
For d = 1 To ActiveDocument.Tables.Count 'только по таблицам текущего документа
  Set oTable = ActiveDocument.Tables(d)
  If (oTable.Columns.Count * oTable.Rows.Count) = oTable.Range.Cells.Count Then ' ячеек = колонок * строк
    For i = oTable.Rows.Count To 1 Step -1 'перебор строк снизу вверх
      For j = 2 To oTable.Columns.Count Step 1 'перебор ячеек со ВТОРОЙ в выбранной строке
        xStr = Trim(Replace(Replace(oTable.Cell(i, j).Range.Text, Chr(13), ""), Chr(7), ""))
        If Len(xStr) = 0 Then
          oTable.Rows(i).Delete ' если встретилась пустая ячейка - удалим строку
          Exit For 'прервём цикл по ячейкам строки
        End If
      Next j
    Next i
  End If
Next d
Application.ScreenUpdating = True
MsgBox "Код завершил работу", vbInformation

Dim oTable As Word.Table
Dim i As Long, j As Long, d As Long, xStr As String, RowIsEmpty As Boolean
' ВСЕ таблицы, в которых есть объединённые ячейки - ПРОПУСКАЮТСЯ
Application.ScreenUpdating = False
For d = 1 To ActiveDocument.Tables.Count 'только по таблицам текущего документа
  Set oTable = ActiveDocument.Tables(d)
  If (oTable.Columns.Count * oTable.Rows.Count) = oTable.Range.Cells.Count Then ' ячеек = колонок * строк
    For i = oTable.Rows.Count To 1 Step -1 'перебор строк снизу вверх
      RowIsEmpty = True ' Изначально считаем строку пустой
      For j = 1 To oTable.Columns.Count Step 1 'перебор ячеек со ПЕРВОЙ в выбранной строке
        xStr = Trim(Replace(Replace(oTable.Cell(i, j).Range.Text, Chr(13), ""), Chr(7), ""))
        If Len(xStr) > 0 Then ' Если какая-то ячейка в строке НЕ ПУСТАЯ -
          RowIsEmpty = False ' Отметим себе, что строка НЕ ВСЯ пустая
          Exit For 'прервём цикл по ячейкам строки
        End If
      Next j
      If RowIsEmpty Then oTable.Rows(i).Delete ' если строка пустая ВСЯ
    Next i
  End If
Next d
Application.ScreenUpdating = True
MsgBox "Код завершил работу", vbInformation