将Word文档的整个TOC存储到字符串中

Question

我想创建一个VBA程序来复制＆＃34;目录的所有内容＆＃34; word文档并将其存储在字符串中。

这是我迄今为止所尝试的。它读取第一行，然后使用循环输出：

Dim temp As TableOfContents 

Dim Strtemp As String

For Each temp In ActiveDocument.TablesOfContents
    Strtemp = temp.Range.Text
Next temp