咱们先来拆解你遇到的问题：使用Word Interop处理表格标题时，跨页场景下编号不正确，核心原因是原代码的范围查找逻辑和续页判断存在漏洞，导致{TN}的归属判断出错。下面是具体的分析和修正方案：

问题根源定位 #

从你的代码和描述来看，主要问题集中在这几点：

1. 查找顺序逻辑倒置：原代码先找{TN}再判断是否在{OA_END_CONTRIBUTION}之后，跨页时Range的位置计算容易出现偏差，导致续页判断错误。
2. 编号递增逻辑模糊：没有独立的计数器控制编号，依赖结束标记的查找时机来间接控制，容易因为跨页场景打乱递增节奏。
3. Range操作不严谨：处理续页时的Range扩展和修改，可能干扰原始查找范围，导致后续{TN}的查找遗漏或重复。

修正后的完整代码 #

下面是调整后的VB代码，针对上述问题做了针对性优化：

''' <summary> ''' 格式化所有表格标题字段。 ''' </summary> ''' <param name="document">待处理的PRADocument对象</param>
Private Shared Sub SetTableFields(document As PRADocument)
    ' 初始化表格编号计数器，独立控制递增逻辑
    Dim tableCounter As Integer = 1
    ' 预收集所有{OA_END_CONTRIBUTION}的位置，避免实时查找的偏差
    Dim endContributionPositions As New List(Of Long)
    Dim endSearchRange As Word.Range = document.WordDocument.Content.Duplicate
    
    With endSearchRange
        .TextRetrievalMode.IncludeHiddenText = True
        .TextRetrievalMode.IncludeFieldCodes = False ' 不需要包含域代码，避免干扰匹配
        .Find.Text = Constants.OA_END_CONTRIBUTION
        .Find.MatchWildcards = False ' 固定文本查找，关闭通配符提高准确性
        .Find.Forward = True
        .Find.Wrap = Word.WdFindWrap.wdFindStop
    End With

    ' 遍历收集所有结束标记的位置
    Do While endSearchRange.Find.Execute()
        endContributionPositions.Add(endSearchRange.End)
        endSearchRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
    Loop

    ' 开始查找{TN}字段
    Dim tnSearchRange As Word.Range = document.WordDocument.Content.Duplicate
    With tnSearchRange
        .TextRetrievalMode.IncludeHiddenText = False
        .TextRetrievalMode.IncludeFieldCodes = False
        .Find.Text = "\{TN*\}?"
        .Find.MatchWildcards = True
        .Find.Forward = True
        .Find.Wrap = Word.WdFindWrap.wdFindStop
    End With

    Dim lastEndPosition As Long = 0
    Do While tnSearchRange.Find.Execute()
        ' 判断当前{TN}是否属于新的贡献块
        Dim isNewContributionBlock As Boolean = True
        For Each pos In endContributionPositions
            If tnSearchRange.Start > lastEndPosition AndAlso tnSearchRange.Start <= pos Then
                ' 当前{TN}在上一个结束标记和当前结束标记之间，属于续页
                isNewContributionBlock = False
                Exit For
            ElseIf tnSearchRange.Start > pos Then
                ' 当前{TN}超过了当前结束标记，进入新贡献块，编号递增
                lastEndPosition = pos
                tableCounter += 1
                isNewContributionBlock = True
                Exit For
            End If
        Next

        ' 处理文档第一个贡献块的特殊情况
        If lastEndPosition = 0 Then
            isNewContributionBlock = True
        End If

        Dim pg As New OAPage
        pg.CreateFrom(tnSearchRange)
        Dim hasSpace As Boolean = (Right(tnSearchRange.Text, 1) = " ")

        If isNewContributionBlock Then
            ' 新贡献块：替换{TN}为带编号的标题前缀，并插入目录域
            Dim titleFontName As String = String.Empty
            Dim titleFontSize As Single
            
            ' 获取当前段落的字体样式，保证格式统一
            With tnSearchRange.Duplicate
                .Expand(Word.WdUnits.wdParagraph)
                .Collapse(Word.WdCollapseDirection.wdCollapseEnd)
                .MoveStart(Word.WdUnits.wdCharacter, -1)
                titleFontName = .Font.Name
                titleFontSize = .Font.Size
            End With

            Dim tableName As String = If(pg.Kind = InsertionItemType.Appendix, INSERT_TYPE_APPENDIX, _
                                        If(pg.Kind = InsertionItemType.Figure, INSERT_TYPE_FIGURE, INSERT_TYPE_TABLE))
            tnSearchRange.Text = $"{tableName} {tableCounter}. " & If(hasSpace, String.Empty, " ")
            document.InsertTableOfContentField(tnSearchRange, tableName)
        Else
            ' 续页场景：插入样式引用和续页标记
            Dim paraRange As Word.Range = tnSearchRange.Duplicate
            paraRange.Expand(Word.WdUnits.wdParagraph)
            ' 清空段落原有内容（保留格式），插入续页文本
            paraRange.Text = String.Format(" {0}", Resources.AddInStrings.HeaderContinued)
            ' 在段落开头插入样式引用域
            paraRange.Collapse(Word.WdCollapseDirection.wdCollapseStart)
            document.WordDocument.Fields.Add(paraRange, Word.WdFieldType.wdFieldStyleRef, _
                                            String.Format("""{0}""", Constants.ITEM_FOR_TOC), True)
        End If

        ' 重置查找范围，避免重复处理当前{TN}
        tnSearchRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
        tnSearchRange.End = document.WordDocument.Content.End
    Loop
End Sub

关键优化说明 #

• 预收集结束标记位置：先把所有{OA_END_CONTRIBUTION}的位置存入列表，后续直接通过位置对比判断{TN}的归属，避免跨页时实时查找的偏差。
• 独立计数器控制编号：用tableCounter直接管理编号递增，每次进入新贡献块就自动加1，逻辑清晰且不易出错。
• 严谨的Range操作：处理续页时使用Duplicate复制Range，避免修改原始查找范围导致后续查找异常；关闭结束标记的通配符查找，提高匹配准确性。
• 适配跨页场景：通过预存的位置列表，即使表格标题跨页，也能根据{TN}的起始位置准确判断是否属于新贡献块，不会误判为续页。

调试建议 #

• 可以在代码中加入临时日志（比如输出到控制台），记录每个{TN}的起始位置、lastEndPosition和tableCounter的值，方便排查跨页时的判断逻辑。
• 测试时打开Word的「显示隐藏文本」功能，确认{OA_END_CONTRIBUTION}的位置是否正确，避免因为隐藏文本的位置偏差导致判断错误。

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