Word Macro that deletes rows...

Hi,

I have a Word Macro that goes through a document table and deletes rows based upon certain criteria. My problem is that some of my rows begin with merged cells. This seems to throw an error since the code can't identify exactly what size the row is.

So, two questions:

1. Can I write the code to just ignore merged cells and only evaluate rows beggining with non-merged cells?
2. All of my merged cell rows are at the top of the document. Can I get the code to start at a certain place ad then run through the rows? For instance, If I wanted to start the loop at the row containing the words, "Working History", how would I change the code below to do that?

Thanks!

Sub DelRows()
 
'Delete empty rows in a table:
Dim rw As Row
Dim tbl As Table
Dim strText As String
 
Const ch = ">"  'character to be found
 
Set tbl = ActiveDocument.Tables(2)
For Each rw In tbl.Rows
    rw.Range.Select
    strText = rw.Cells(1).Range.Text
    If InStr(strText, ch) Then
        rw.Delete
    End If
Next rw
 
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Select all Open in new window

Instant Access to this Solution

Plus...

30 Day FREE access, no risk, no obligation

Collaborate with the world's top tech experts

Unlimited access to our exclusive solution database

Never be left without tech help again

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

"The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.

"Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin

"Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.

Screenshot of Experts Exchange Knowledgebase

Need individual assistance?

Our experts are ready to help.

If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.

Want to learn from the best?

Read articles from industry experts.

Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.

Working on a long term project?

Store your work and research.

Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.

Join the Community

Give a Little. Get a Lot.

Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.

I have tried with a table where the cells from the first and second columns are merged in one of the rows, and I don't get an error. What error do you get, and on which line?

If the cells were vertically merged, e.g. by combining the first-column cells in adjacent rows, then I would expect an error (no 5991 - Cannot access individual rows in this collection because the table has vertically merged cells.) on the For Each line.

However merging is done you can step through each cell in a table and examine the RowIndex and ColumnIndex properties. However, it isn't always easy to deduce from that whether the cell has been merged horizontally or vertically, but the attached 'DelRowsByCell' code also works in my tests.

You could step through the rows collection by index:

For r = 4 to tbl.Rows.Count
rw = tbl.Rows(r)

Or you could still use the For Each, but check the RowIndex of the first cell as in the DellRowsAfter sub below.

Sub DelRowsByCell()
 
'Delete empty rows in a table:
Dim rw As Row
Dim tbl As Table
Dim cl As Cell
Dim strText As String
 
Const ch = ">"  'character to be found
 
Set tbl = ActiveDocument.Tables(1)
For Each cl In tbl.Range.Cells
    If cl.ColumnIndex = 1 Then
        strText = cl.Range.Text
        If InStr(strText, ch) Then
            tbl.Rows(cl.RowIndex).Delete
        End If
    End If
Next cl
 
End Sub
 
Sub DelRowsAfter()
 
'Delete empty rows in a table:
Dim rw As Row
Dim tbl As Table
Dim strText As String
 
Const ch = ">"  'character to be found
 
Set tbl = ActiveDocument.Tables(2)
For Each rw In tbl.Rows
    If rw.Cells(1).RowIndex > 3 Then
        strText = rw.Cells(1).Range.Text
        If InStr(strText, ch) Then
            rw.Delete
        End If
    End If
Next rw
 
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

Select all Open in new window

Dim tbl As Table Dim cl As Cell Dim bStart As Boolean Set tbl = ActiveDocument.Tables(1) For Each cl In tbl.Range.Cells If bStart Then If cl.ColumnIndex = 1 Then If Left(cl.Range.Text, 1) = ">" Then cl.Range.Rows.Delete Exit For End If End If Else If InStr(cl.Range.Text, "Work History") > 0 Then bStart = True End If End If Next cl

Dim tbl As Table Dim cl As Cell Dim bStart As Boolean Dim rng As Range Set tbl = ActiveDocument.Tables(1) For Each cl In tbl.Range.Cells Set rng = cl.Range If bStart Then If cl.ColumnIndex = 1 Then If Left(rng.Text, 1) = ">" Then rng.Rows.Delete Exit For End If End If Else If InStr(rng.Text, "Work History") > 0 Then bStart = True End If End If Next cl

Question

Word Macro that deletes rows...

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

Microsoft Word

Visual Basic Programming

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press