在 MS Word 中将表格行保持在一起作为默认设置

新表格：考虑将格式化但空白的表格保存为快速表格

1. 格式化示例表，内容为空白，并将行设置为不允许跨页。
2. 然后将其保存到 QuickTables Gallery。

请注意，您可以在通用库中执行此操作，也可以将其保存在特定模板中。这是我关于可以存储构建块的位置的文章。给它一个描述性的名称。您可能希望名称以下划线开头。

请注意，这是在名称和类别之前使用下划线设置的。它将显示在按字母顺序排列的快速表格列表的顶部。“_Mine”类别领先于“General”类别。

您只需键入名称的开头即可插入快速表！

该名称应该是您通常不会输入的名称。在这种情况下，当您键入“_rows”时，您应该会得到一个提示，允许您插入表格。这是自动图文集和其他构建基块的标准操作。键入名称的前四个（唯一）字符可以访问。

您可以更改新添加的表格的格式。

使用快速表格插入新表格后，您可以根据需要应用不同的表格样式，并且可以添加或删除行/列。您还可以创建多个具有不同格式但具有非破坏性特征的快速表。

在 Mac 上

您可以将表格另存为自动图文集，而不是使用快速表格。同样，您需要一个不会出现在普通打字中的名称。

现有表需要宏观解决方案

以下宏将设置文档正文中的任何表格不允许行中断。注意限制。

Sub TableRowsNoBreak()
    ' Charles Kenyon 2021-June-7
    ' Change all tables in a document to the setting of not allowing rows to break across pages
    ' Will work on tables in body of document (not in Headers/Footers or TextBoxes) - these should not have page breaks anyway
    ' May not work on nested tables
    ' https://superuser.com/questions/1655136/keeping-table-rows-together-as-default-in-ms-word
    '
    Dim oTable As Table
    Dim oDoc As Document
    Set oDoc = ActiveDocument
    '
    For Each oTable In oDoc.Tables
        oTable.Rows.AllowBreakAcrossPages = False
    Next oTable
    Set oDoc = Nothing
    Set oTable = Nothing
End Sub

Word MVP Graham Mayor安装宏

另请注意，在某些情况下，“保持行在一起”或“保持下一个”的段落设置可能会破坏此不中断设置。