генерация TableOfContents с использованием Word VBA, простой метод VBA не работает должным образом

Question

Я не понимаю, почему следующая функция возвращает "Nothing"

Public Function generatsTOC(ByRef doc As Word.Document) As Word.TableOfContents

    Dim toc As Word.TableOfContents

    Set toc = doc.TablesOfContents.Add(range:=doc.range(0, 0), UseHyperlinks:=True, _  
              UseFields:=False, UseHeadingStyles:=True, _
              UpperHeadingLevel:=1, LowerHeadingLevel:=4, IncludePageNumbers:=True, _ 
              RightAlignPageNumbers:=True)

    Set generatesTOC = toc

End Function

В следующем классе ...

dim itoc as word.TableOfContents
dim tcg as TableOfContentsGenerator
set tcg = new TableOfContentsGenerator

Set itoc = tcg.generatsTOC(doc)

Когда я смотрю itoc, это NOTHING.

Я не вижу, как это не работает?

Answer 1

Это была самая глупая ошибка на планете. Я решил проблему, исправив SPELLING: generatsTOC >>>> генерирует TOC