所有word中表格不许跨页断行

于恒

如图如附件

（1）目标：包括表题在内，所有的表格不许跨页断行；不许改变行高列宽、不许改变字体字号；
只允许在表题前或者表格后面加入空行实现“不跨页断行”
；每页容纳的表格数量没有限制

（2）我的代码：先全选表格，然后右键单击“表格属性”调整，但是不灵啊！没反应，还是跨页断行。怎么回事？

我摘抄过来的全选表格代码如下：
Sub qxbg()
    Dim tempTable As Table

    Application.ScreenUpdating = False

    '判断文档是否被保护
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护，此时不能选中多个表格！"
        Exit Sub
    End If
    '删除所有可编辑的区域

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '添加可编辑区域

For Each tempTable In ActiveDocument.Tables

tempTable.Range.Editors.Add wdEditorEveryone
    Next

'选中所有可编辑区域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone

'删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True

End Sub