目录，VBA，

Question

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

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

我可以访问目录，但不能访问单个项目和段落。下面是我到目前为止编写的代码

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