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