Delete an MS Word table row based on next row text using VBA

gmayor · #2 01-03-2022, 04:46 AM

If you are going to delete rows in a loop then you need to reverse the loop or the count goes haywire i.e.

Code:

For Counter = NumRows to 1 Step -1

However there is an assortment of other issues in your code. Try the following instead.

Code:

Sub Macro1()
Dim oTable As Table
Dim oRng As Range, oRng2 As Range
    For Each oTable In ActiveDocument.Tables
        Application.ScreenUpdating = False
        Set oRng = oTable.Range
        With oRng.Find
            .Text = "City"
            Do While .Execute
                If oRng.InRange(oTable.Range) Then
                    If Not oRng.Rows(1).Range.Start = oTable.Rows(1).Range.Start Then
                        Set oRng2 = oRng.Rows(1).Previous.Range.Rows(1).Cells(1).Range
                        If InStr(1, oRng2, "Country") > 0 Then oRng.Rows(1).Delete
                    End If
                End If
            Loop
        End With
        Set oRng = oTable.Range
        With oRng.Find
            .Text = "Country"
            Do While .Execute
                If oRng.InRange(oTable.Range) Then
                    If Not oRng.Rows(1).Range.Start = oTable.Rows(1).Range.Start Then
                        Set oRng2 = oRng.Rows(1).Previous.Range.Rows(1).Cells(1).Range
                        If InStr(1, oRng2, "City") > 0 Or InStr(1, oRng2, "Country") > 0 Then oRng2.Rows(1).Delete
                    End If
                End If
            Loop
        End With
    Next oTable
    Application.ScreenUpdating = True
    Set oTable = Nothing
    Set oRng = Nothing
    Set oRng2 = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to hide/delete slides based on keyword in a separate text file based on AND\|OR condition?	rupd911	PowerPoint	0	02-22-2021 08:22 AM
Macro to delete table rows based on the absence of a single specific keyword	JellehFishh	Word VBA	2	06-27-2019 08:23 AM
Word Macro to delete table row and table header	NorthSuffolk	Word VBA	6	10-11-2016 05:04 AM
Text inside text boxes create headings inside my table of contents!!! How do I delete the created he	carstj	Word	3	04-11-2016 12:46 PM
Macro to color row of Word table based on found text	kristib	Word VBA	4	11-15-2015 02:42 PM