如何通过VBA解决MS Word部分表格表头行不重复的问题

故障表现 #

已开启表格「重复标题行」功能，但跨页后表头未自动重复，故障表现参考下图：

修复前置检查 #

• 操作前先备份原文档，避免数据异常丢失
• 右键目标表格，选择「表格属性」-「文字环绕」，确认设置为「无」，文字环绕模式下重复表头功能会被默认禁用

VBA修复脚本 #

打开Word的VBA编辑器（快捷键Alt+F11），右键当前文档选择「插入」-「模块」，粘贴以下代码后按F5运行即可：

Sub 修复重复表头行()
    Dim targetTable As Table
    ' 修复光标所在的单个表格
    If Selection.Information(wdWithInTable) Then
        Set targetTable = Selection.Tables(1)
        ' 设置第一行为重复表头，如需多行行重复可新增对应行的配置
        targetTable.Rows(1).HeadingFormat = True
        ' 关闭行跨页断行，避免干扰重复表头生效
        targetTable.Rows.AllowBreakAcrossPages = False
        MsgBox "当前表格表头修复完成", vbInformation
    Else
        ' 如需批量修复当前文档所有表格，删除下一行的单引号，注释掉MsgBox行即可
        'For Each targetTable In ActiveDocument.Tables
        '    targetTable.Rows(1).HeadingFormat = True
        '    targetTable.Rows.AllowBreakAcrossPages = False
        'Next
        'MsgBox "文档内所有表格表头修复完成", vbInformation
        MsgBox "请先将光标定位到需要修复的表格内", vbExclamation
    End If
End Sub

额外说明 #

• 如需设置多行为重复表头，可新增对应行的配置语句，比如需要前2行重复时，补充代码targetTable.Rows(2).HeadingFormat = True即可
• 运行完成后切换到「页面视图」，查看跨页位置的表格是否已正常展示重复表头

内容的提问来源于stack exchange，提问作者Hira Sharif