求教，WORD中的表格，如何用VBA判断单元格的内容是否跨页

crystal0330

WORD中的表格，每页的表格行数是不固定的，如何判断单元格的内容是否跨页，如果跨页了，就把这行下移到下一页，用VBA如何实现呢？这个是原始的


我想用VBA后达到的效果是：

天空飘过啥

不用VBA吧，在表格属性就有这个选项
把下图的勾去掉不可以了

413191246se

Sub test()
    Dim x&, y&
    With Selection
        If Not .Information(12) Then MsgBox "请将光标放在表格中！", 0 + 16: End
        x = .Tables(1).Range.Cells(1).Range.Information(wdActiveEndPageNumber)
        y = .Tables(1).Range.Cells(.Tables(1).Range.Cells.Count).Range.Information(wdActiveEndPageNumber)
        If x <> y Then MsgBox "表格跨页！", 0 + 48 Else MsgBox "表格未跨页！", 0 + 48
    End With
End Sub