如何纠正word目录中的页码

山海风云轩

求助大佬：比如有一份随机文件，能否用VBA纠正目录里面的页码？（WPS环境）
详情请看附件！
感谢！

hlxue

WORD有可以更新目录或只更新目录页码的功能哦

山海风云轩

hlxue 发表于 2023-12-27 17:19
WORD有可以更新目录或只更新目录页码的功能哦

请问怎么用vba实现了？

hlxue

Sub 更新目录()


  Dim rg As Range
  Dim aField As Field
     For Each rg In ActiveDocument.StoryRanges
        For Each aField In rg.Fields
   
           If aField.Type = wdFieldTOC Then:
              aField.Update

        Next aField
     Next rg

End Sub

hlxue

山海风云轩 发表于 2023-12-28 10:10
请问怎么用vba实现了？

你的目录不是WORD生成的？是文字？

山海风云轩

hlxue 发表于 2023-12-28 12:01
你的目录不是WORD生成的？是文字？

是从excel里面导出的，Excel里面有计算页数，但是导出word的时候由于排版等原因，不准确，所以要纠正

山海风云轩

hlxue 发表于 2023-12-28 11:55
Sub 更新目录()

刚试了，Dim aField As Field未定义，是放excel里面的代码

hlxue

山海风云轩 发表于 2023-12-28 17:09
刚试了，Dim aField As Field未定义，是放excel里面的代码

1、这个是WORD中的宏，不能在EXCEL中使用。
2、你的文档我看过了，目录部分是WORD中的段，不是WORD中的目录域，代码对你的文档无效。

山海风云轩

Private Sub CommandButton1_Click()
   Dim p, r, s, t
    s= "石膏板造型顶"
   With Selection.Find
       .ClearFormatting
       .MatchWholeWord = True
       .MatchCase = False
       t = .Execute(FindText:=s)
   End With
    p= Selection.Information(wdActiveEndPageNumber)
    r= Selection.Information(wdFirstCharacterLineNumber)
   If t Then
       MsgBox "成功，已找到“" & s & "”" & vbCrLf & _
           "页码："& p & vbCrLf & "行数：" & r, vbOKOnly, _
           "成功"
   Else
       MsgBox "很遗憾，没有找到“" & s & "”", vbOKOnly, _
           "遗憾"
   End If
End Sub
这段代码在word中运行正常，为什么放在excel中对word进行操作时  p= Selection.Information(wdActiveEndPageNumber)会报错？
应该怎么修改了？
有大佬知道吗？求助

山海风云轩

这个读取特定字符所在页码的代码在word中是可以运行的，放excel中P=……会报错，请问有大佬知道怎么修改吗？