• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 253
  • Last Modified:

Word 2010: (Loop) How to add new row to table based on cell values matches

Hi,

I'm trying to loop through a table in word and add a new row between two non matching cells (cells 1 of row x & cells 1 of row x+1) as the non matching instances are found.

I know the below is crude (and doesn't work:0)), but if you could help that'd be great

Dim x As Long
Dim TableY As Table
x = 1
Set TableY = Selection.Tables(1).Cell(x, 1)
Do Until TableY.Cell(x, 1) <> TableY.Cell(x + 1, 1)
        Selection.InsertRowsAbove 1
        x = x + 1
Loop

Danny
0
DannyJOsborne
Asked:
DannyJOsborne
1 Solution
 
Rgonzo1971Commented:
Hi,

pls try

Sub Macro1()

Set TableY = Selection.Tables(1)

For Idx = TableY.Rows.Count To 2 Step -1
    If TableY.Cell(Idx, 1).Range.Text <> TableY.Cell(Idx - 1, 1).Range.Text Then
        TableY.Cell(Idx, 1).Select
        Selection.InsertRowsAbove
    End If
Next

End Sub

Open in new window

Regards
0
 
DannyJOsborneAuthor Commented:
Spot on first time!
0

Featured Post

Visualize your virtual and backup environments

Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now