Keeping Table on One Page

andyroberts1234 · #4 08-22-2016, 03:33 AM

Hello,

I have been trying to run this code however come across the following error:

Runtime error 5991: Cannot access the individual rows of this collection because the table has vertically merged cells.

Is there a way to make it work with tables with merged cells, or if not to do something like 'if table has merged cells then skip the formatting of this table'?

For clarity, this is the code I am running:

Code:

Sub ApplyTableAttribute()
'
' ApplyTableAttribute Macro
'
'
Dim oTbl As Table, oCel As Cell
' for each table in the active document
For Each oTbl In ActiveDocument.Tables
'set paragraphs to keep with next
  oTbl.Range.Paragraphs.KeepWithNext = True
  ' for each cell in the last row of the table
  For Each oCel In oTbl.Rows.Last.Range.Cells
  ' 'set the last paragraph to not keep with next
    oCel.Range.Paragraphs.Last.KeepWithNext = False
  Next oCel
Next oTbl
End Sub

Thanks

Andy

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Page Numbers in Table of Contents	MerRob54	Word	6	01-28-2013 03:37 AM
Table Jumps to Next Page	donthaveaclue	Word Tables	3	02-25-2011 07:54 AM
table spanning full page	datto210	Word Tables	1	10-25-2010 12:39 PM
Table rows moving to new page when you don't want them to	graham	Word Tables	1	11-16-2009 08:51 AM
Automatically recreate table on next page	oneononemedia	Word Tables	0	08-16-2009 08:24 PM