如何用VBA批量将Word中跨页的Normal样式表格标题移至表格同页前

Option Explicit

Sub FixTableCaptionPosition()
    Dim tblNew As Table
    Dim oRng As Range
    Dim PageNo As Integer
    Dim PageNoCap As Integer
    Dim found As Boolean
    
    ' 遍历当前文档所有表格
    For Each tblNew In ActiveDocument.Tables
        ' 获取当前表格所在页码
        PageNo = tblNew.Range.Information(wdActiveEndPageNumber)
        
        ' 初始化范围，定位到表格前一个段落位置
        Set oRng = tblNew.Range
        oRng.Collapse wdCollapseStart
        If oRng.Start = 0 Then GoTo NextTable ' 表格在文档开头直接跳过
        oRng.Move wdParagraph, -1
        
        found = False
        ' 向前查找第一个Normal样式的段落
        Do While oRng.Start > 0
            ' 中文版Word请将下方"Normal"替换为"正文"
            If oRng.Paragraphs(1).Style = "Normal" Then
                found = True
                Exit Do
            End If
            oRng.Move wdParagraph, -1
        Loop
        
        ' 未找到符合要求的段落则跳过当前表格
        If Not found Then GoTo NextTable
        
        ' 获取标题段落所在页码
        PageNoCap = oRng.Information(wdActiveEndPageNumber)
        
        ' 仅当标题在前一页时执行移动操作
        If PageNoCap = PageNo - 1 Then
            ' 剪切原标题，粘贴到表格紧邻前方
            oRng.Paragraphs(1).Range.Cut
            tblNew.Range.Collapse wdCollapseStart
            tblNew.Range.Paste
        End If
        
NextTable:
    Next tblNew
    
    ' 释放对象内存
    Set tblNew = Nothing
    Set oRng = Nothing
    
    MsgBox "所有表格标题位置修正完成", vbInformation
End Sub

• 样式适配：如果你使用的是中文版Word，需要将代码中判断样式的"Normal"替换为"正文"，匹配Word默认的中文字样命名规则
• 批量扩展：如果需要批量处理数百份文档，可在现有逻辑外层嵌套文件夹遍历代码，逐个打开文档执行本宏后保存关闭即可
• 执行前建议：处理重要文档前请先备份，避免误操作导致内容丢失

内容的提问来源于stack exchange，提问作者Chris Joseph