Забавный макрос (правда, есть сомнения в его полезности) я нашел на одном из обсуждений пользователей редактора Word в группах Google.

Следующий макрос подсчитывает количество вхождений заголовков (или иных элементов) в Оглавлении и выводит сообщение об этом.

Sub Count_TOC_Entries()
'Подсчет количества заголовков (элементов) в Оглавлении
Dim i As Integer
With ActiveDocument
    If .TablesOfContents.Count > 0 Then
        For i = 1 To .TablesOfContents.Count
            MsgBox "Оглавление " & i & " в документе """ & .Name & """ содержит " & _
            .TablesOfContents(i).Range.Paragraphs.Count - 1 & " заголовков (элементов)."
        Next i
    Else
        MsgBox "В документе """ & .Name & """ Оглавление не найдено."
    End If
End With
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

]]> ]]>