как создать оглавление (TOC) с помощью макроса

Question

Мне нужно создать оглавление после mailmerge макросом, так как word не поддерживает обновление поля TOC из полей TC.

Можно ли автоматизировать создание оглавления?

Answer 1

Это создаст оглавление с использованием VBA:

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