Добавление оглавления в Word с помощью VBA приводит к появлению нежелательных заголовков в оглавлении

Я пытаюсь добавить оглавление в Word с помощью VBA, содержащее заголовки:

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

Но когда я запускаю этот code, также добавляется стиль с именем "Alt Heading 1" и "App H1 Title". Я пробовал несколько вариантов, но не могу получить желаемый результат.

includedStyles = "Heading 1;1;Heading 2;2;Heading 3;3"

Dim TOC As TableOfContents
Dim includedStyles As String

' Define which styles to include in the TOC
includedStyles = "Heading 1;1;Heading 2;2;Heading 3;3"

' Delete existing TOC if present
If ActiveDocument.TablesOfContents.Count > 0 Then
    ActiveDocument.TablesOfContents(1).Delete
End If

' Add a new TOC with specified styles
Set TOC = ActiveDocument.TablesOfContents.Add( _
    Range:=Selection.Range, _
    RightAlignPageNumbers:=True, _
    UseHeadingStyles:=False, _
    IncludePageNumbers:=True, _
    AddedStyles:=includedStyles, _
    UseHyperlinks:=True, _
    HidePageNumbersInWeb:=True, _
    UseOutlineLevels:=False _
)