Thread: [Solved] Error adding row to table
View Single Post
 
Old 05-03-2016, 03:48 PM
jeffreybrown jeffreybrown is offline Windows Vista Office 2007
Expert
  
Join Date: Apr 2016
Posts: 673
jeffreybrown has a spectacular aura aboutjeffreybrown has a spectacular aura about
Default Error adding row to table
This macro works fine until it hits a table where there are vertically merged cells in the table. I get an error 5991 "Cannot access individual rowsin this collection because the table has vertically merged cells"

Is is possible to add rows to those tables or do I just need to skip those tables and move on?

Code:
Sub Add_Rows_Table()
    Application.ScreenUpdating = False
    Dim Tbl As Table, Rng As Range
    For Each Tbl In ActiveDocument.Tables
        Tbl.Select
        Tbl.Rows.Add BeforeRow:=Selection.Rows(1)
    Next Tbl
    Application.ScreenUpdating = True
End Sub
Reply With Quote