deleting a row in word table if a certain number of cells are empty and/or contain a certain value

Atuck88 · #1 01-05-2022, 04:26 AM

I have this code (attached below) which will delete the rows in a word table if all the cell rows are empty.

However I have a table with eight columns, the first four of which will always contain text. The latter four contains data linked to an excel document.

The question is; how do I get the code to search through the latter four (data) columns and IF the columns are empty and/or contain a value (such as zero) THEN delete the row.

Any help will be much appreciated.

Thanks in advance

Code:

       Sub DeleteBlankRowsAndTablesInATable()
      Dim objCell As Cell
      Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
      Dim varCellEmpty As Boolean
     
      Application.ScreenUpdating = False
     
      If Selection.Information(wdWithInTable) = False Then
        MsgBox ("Put cursor inside a table first!")
        Exit Sub
      Else
        With Selection.Tables(1)
          nRows = .Rows.Count
          For nRowIndex = nRows To 1 Step -1
            varCellEmpty = True
            For Each objCell In .Rows(nRowIndex).Cells
              If Len(objCell.Range.Text) > 2 Then
                varCellEmpty = False
                Exit For
              End If
            Next objCell
              If varCellEmpty = True Then
                .Rows(nRowIndex).Delete
              End If
          Next nRowIndex
     
    
        End With
      End If
    
      Set objCell = Nothing
    
      Application.ScreenUpdating = True
    End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How can i upload values of Non-Empty Cells Reference of a Table in ComboBox	SamDsouza	Word VBA	4	03-08-2021 10:00 PM
auto progress number evenly between two values across empty cells ?	DBenz	Excel	4	03-28-2018 04:46 AM
problem with deleting empty rows MS Word VBA	nasserlouis	Word VBA	2	08-17-2017 04:00 PM
How to number table cells continuously from a fixed point within the table in Word 2013	wondermuse	Word Tables	15	12-07-2015 12:16 AM
Deleting info from specific table cells	jamierbooth	Word VBA	3	07-29-2014 03:20 PM