excel导出为word，然后纠正目录页码，页数多的时候不准确

山海风云轩

求助大佬，由于工作需要，用excel作了一个工具，最后的报告，就是将特定sheet内容导出到一份word文件中，

采用的是将使用区域复制粘贴到word里面，由于目录中对应的页码不准确，所以写了个纠正目录页码的代码，之前用着还行
现在的问题是，当页数较多的时候，纠正的页码也不准确了，请帮忙看看需要怎么修改？
感谢，感谢！！！
之前的纠正页码代码见附件

山海风云轩

经过测试发现，不是页数多的时候不准确，而是当页面有较大空隙时，目录中的页码校正不准确，可能是因为WPS环境的excel导出word的原因，excel代码读取页码的时候会将内容压缩（紧凑）在一起进行读取吗？
竖向页面部分好像没有影响，由于行业要求，部分内容必须这种横向页面显示的，这时候，如果有较大空隙，excel中的校正目录页码的结果就会有偏差，有1个地方有较大空隙，就会偏差1页，有2个地方有较大空隙，就会偏差2页，请问有解决方法吗?
备注:这个是wps环境中将特定的几个sheet导出到一个word文档中!

山海风云轩

请问，有操作过的大佬吗？

hlxue

是要这样的吗？请给好评+2分，谢谢！

山海风云轩

hlxue 发表于 2024-5-14 21:24
是要这样的吗？请给好评+2分，谢谢！

感谢大佬，这里的效果可以了

taller

建议：Word文档中使用标题样式，然后可以自动生成目录（含页码），无需额外代码修正页码

山海风云轩

taller 发表于 2024-5-15 03:56
建议：Word文档中使用标题样式，然后可以自动生成目录（含页码），无需额外代码修正页码

你好，感谢关注
是这样的，这个word是有wps环境下的excel里面的特定sheet中的内容导出生成的，而且是复制粘贴的方式

gwjkkkkk

Sub test3()
    Dim ar(), i&, r&, Rng As Range, n&, strRngText$
   
    Application.ScreenUpdating = False
   
    With ActiveDocument
        With .Tables(2)
            n = .Rows.Count
            For i = 1 To n
                strRngText = Left(.Cell(i, 1).Range.Text, Len(.Cell(i, 1).Range.Text) - 2)
                If InStr(strRngText, "┈") Then
                    r = r + 1
                    ReDim Preserve ar(1 To 2, 1 To r)
                    ar(1, r) = Replace(strRngText, "┈", "")
                    ar(2, r) = i
                End If
            Next i
        End With
        
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
        For i = 1 To UBound(ar, 2)
            With .Range(Selection.Start)
                .Find.Execute FindText:=ar(1, i), Forward:=True
                If .Find.Found = True Then
                     ActiveDocument.Tables(2).Cell(ar(2, i), 2).Range.Text = .Information(wdActiveEndPageNumber)
                End If
            End With
        Next i
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

山海风云轩

gwjkkkkk 发表于 2024-5-16 21:13
请参考附件。。。

多谢大佬！
请问一下，为什么我把这段代码转换到excel里面，然后对从excel导出的word进行目录的页码纠正，为什么会偏差一页呢？（比如从第五部分开始，本来“五、”在第19页，结果显示为18），代码直接在word中运行是正确的（都是WPS环境）