Keeping Table on One Page

macropod · #2 04-12-2011, 08:37 PM

Hi SCMiller,

You need:
KeepWithNext = True.

However, the code could be greatly simplified:

Code:

Sub KeepRowsTogether()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
  oTbl.Range.Paragraphs.KeepWithNext = True
Next oTbl
End Sub

The problem with either approach, though, is that it forces the table to 'keep with next' with the first paragraph following it. What you need is for the last paragraph in each cell on the last row not to have the 'keep with next' attribute:

Code:

Sub KeepRowsTogether()
Dim oTbl As Table, oCel As Cell
For Each oTbl In ActiveDocument.Tables
  oTbl.Range.Paragraphs.KeepWithNext = True
  For Each oCel In oTbl.Rows.Last.Range.Cells
    oCel.Range.Paragraphs.Last.KeepWithNext = False
  Next oCel
Next oTbl
End Sub

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