AllowBreakAcrossPages Property Example

This example creates a new document with a 5x5 table and prevents the third row of the table from being split during pagination.

Set newDoc = Documents.Add
Set aTable = newDoc.Tables.Add(Range:=Selection.Range, _
    NumRows:=5, NumColumns:=5)
aTable.Rows(3).AllowBreakAcrossPages = False

This example determines whether the rows in the current table can be split across pages. If the insertion point isn't in a table, a message box is displayed.

Selection.Collapse Direction:=wdCollapseStart
If Selection.Tables.Count = 0 Then
    MsgBox "The insertion point is not in a table."
Else
    allowBreak = Selection.Rows.AllowBreakAcrossPages
End If