Vba 如何通过宏创建目录（TOC）

我需要通过宏在mailmerge之后创建目录，因为word不支持从TC字段更新TOC字段

---

是否可以自动创建TOC？

这将使用VBA创建TOC：

    Set rangeWord = ActiveDocument.Range(Start:=0, End:=0)
    ActiveDocument.TablesOfContents.Add rangeWord, _
                                    UseFields:=True, _
                                    UseHeadingStyles:=True, _
                                    LowerHeadingLevel:=3, _
                                    UpperHeadingLevel:=1