expression.AllowBreakAcrossPages
expression Required. An expression that returns a TableStyle object.
Example
This example creates a new document with a 5x5 table and prevents the third row of the table from being split during pagination.
Dim docNew As Document
Dim tableNew As Table
Set docNew = Documents.Add
Set tableNew = docNew.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
tableNew.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.
Dim lngAllowBreak as Long
Selection.Collapse Direction:=wdCollapseStart
If Selection.Tables.Count = 0 Then
MsgBox "The insertion point is not in a table."
Else
lngAllowBreak = Selection.Rows.AllowBreakAcrossPages
End If