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

Catarina · #1 01-03-2022, 03:17 AM

Thank you in advance for your help on this.

I need to delete an MSWord table row based on the next row text.

My word table has headers which may or may not have sub-rows with details. I need to delete the header rows when there are no details below.

I can have, for example, this table, which is fine, no need to delete anything:

City
Lisbon

Porto
Madrid
London
Country
Portugal
Spain

But, if I have only this, then I need to delete the City header row (this is just an example, I have several header rows that need deleting when there are no contents below)

City
Country
Portugal
Spain

I tried adapting an earlier macro I had for deleting blank lines, but it is not working.

Code:

Dim oTable As Table, oRow As Range, oCell As Cell, Counter As Long, _
NumRows As Long, TextInRow As Boolean

' Specify which table you want to work on.
For Each oTable In ActiveDocument.Tables

' Set a range variable to the first row's range
Set oRow = oTable.Rows(1).Range
Set oNextRow = oTable.Rows(1).Range
NumRows = oTable.Rows.Count
Application.ScreenUpdating = False

For Counter = 1 To NumRows

    StatusBar = "Row " & Counter
    DeleteRow = False

    For Each oCell In oRow.Rows(1).Cells
                       
        If oCell.Range.Text = "City" & Chr(13) & Chr(7) And oRow.Rows(1).Next.Cells(1).Range.Text = "Country" & Chr(13) & Chr(7) Then
            DeleteRow = True
            Exit For
        End If
    
    Next oCell

    If DeleteRow Then
        oRow.Rows(1).Delete
    Else
        Set oRow = oRow.Next(wdRow)
    End If

Next Counter

Next oTable
Application.ScreenUpdating = True

All help will be much appreciated

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