Программно вставить поле TOC

[doober]

Доброго времени суток.

Имею файл HTM на 500 таблиц.Задача создать отформатированный файл Ворда.

Если обработку осуществлять непосредственнов в ворде,то времени требуется более часа.
Если все эти данные выводить в RTF формате ,то времени уходит секунд 20.
Самописным кодом я формирую практически все,стили,заголовки,колонтитулы заполняю,поля создаю.
Но одна проблемма-не могу создать поле для оглавления.Нужно ключи создавать.
Есть идея открыть созданный файл RTF в ворде и вставить поле TOC.

Возникает вопрос,это возможно,и если да.то как вставить его кодом.
Заголовки создаются первого уровня.
Ручная работа исключается.

[Казанский]

Записал макрорекордером команду создания оглавления:

Sub Макрос1()
With ActiveDocument
    .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=1, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True
    .TablesOfContents(1).TabLeader = wdTabLeaderDots
    .TablesOfContents.Format = wdIndexIndent
End With
End Sub

Потом нормально "воспроизводится".
А можно прямо создать поле с нужным текстом:

Sub Макрос2()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "TOC \o ""1-1"" \h \z ", PreserveFormatting:=True
End Sub

[doober]

Спасибо за макрос2.
Хотел так вставить в RTF

{\pard\fi0\qr{\fs18 {\field{\*\TOC \o "1-1" \h \z }}}\par}

,не получасется.
буду через открытие файла в ворде макросом вставлять