Microsoft Office Forums - View Single Post - [Solved] Deleting a table with vertically merged cells if it contains certain text.

macropod · 10-30-2020, 12:45 AM

Replace:
"Tree Number"
with:
"DelTbl"
and replace:

Code:

    If .Information(wdWithInTable) = True Then
      With .Cells(1)
        If .RowIndex > 1 Then
          If Split(.Range.Text, vbCr)(0) = StrFnd Then .Range.InsertBreak (wdColumnBreak)
        End If
      End With
    End If

with:

Code:

    If .Information(wdWithInTable) = True Then .Tables(1).Delete