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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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