Option Explicit

' во всех таблицах документа удалит строки, где есть ячейки, не содержащие текста.
Sub removeblank()
    Dim ii&, jj&, k&
    Dim flag%
    Dim blank$

    blank = Chr(13) & Chr(7)
    
    With ThisDocument
    For k = .Tables.Count To 1 Step -1
        With .Tables(k)
        For jj = .Rows.Count To 1 Step -1
            For ii = .Rows(jj).Cells.Count To 1 Step -1
                'If Len(.Cell(jj, ii).Range.Text) = 0 Then flag = 1: ii = 1
                If StrComp(blank, .Cell(jj, ii).Range.Text) = 0 Then flag = 1: ii = 1
            Next ii
            If flag = 1 Then
                .Rows(jj).Delete
                flag = 0
                ' если удалений предвидится много, то лог лучше в файл вывести
                Debug.Print "tbl: " & k & ", row: " & jj
            End If
        Next jj
        End With
    Next k
    End With
End Sub