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

Question

我希望 Word（MS 365）中的表格永远不会连续分页。

1. 理想情况下，它应该是一个永久设置，但是
2. 如果这不可能的话，那么对整个文档中的所有表格进行一次设置就好了。

我知道如何逐张桌子做 - 看看这篇 SE 帖子，这里给出了一个很好的答案：“保持表格各行连在一起”。

Answer 1

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

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

请注意，您可以在常规图库中执行此操作，也可以将其保存在特定模板中。以下是我写的关于 Building Blocks 可以存放在哪里的文章。为其指定一个描述性名称。您可能希望以下划线开头。

请注意，在名称和类别前都设置了下划线。它将显示在快速表格字母列表的顶部。“_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

还要注意的是，在某些情况下，这种不中断的设置可能会被“保持行连在一起”或“与下一行保持一致”的段落设置所破坏。