我有一个word文档，其中包含内容表和内容表中每个项目的几个段落 . 下面是一个示例：内容项目项目编号项目详细信息页面编号1.帐户详细信息.... 1 1.1帐户历史记录.... 1 1.2当前项目正在进行中.... 2 2.利益相关者.... 3 3时间表等...... 4

这些 Headers 中的每一个都有一个关于页码的段落 . 我需要为利益相关者提供这些段落 .

我能够进入目录，但不是单个项目和段落 . 下面是我到目前为止编写的代码

Set wordapp = CreateObject("Word.Application")
wordapp.Documents.Open filepath
wordapp.Visible = True
'MsgBox (wordapp.ActiveDocument.TablesOfContents)

with wordapp
For Each TOC In wordapp.ActiveDocument.TablesOfContents
MsgBox (TOC.Item)
Next
End With
vba tableofcontents