Error adding row to table

jeffreybrown · #1 05-03-2016, 03:48 PM

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

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
Adding comments to PPT slides causes error	Render9	PowerPoint	0	02-09-2016 08:46 AM
Adding ContentControl to a table	milena	Word VBA	2	04-20-2015 01:04 AM
Table property adding spacing	Ulodesk	Word Tables	4	01-12-2015 01:23 PM
Adding Rows to a Table	SuzeG	Word VBA	8	01-02-2014 08:05 AM
adding table to a particular place	hklein	Word VBA	2	07-25-2011 01:45 AM