Умное оглавление в PowerPoint

Код для макроса Sub UpdateTableOfContents() Dim slide As slide Dim tocSlide As slide Dim tocText As String Dim i As Integer ' Указываем слайд с оглавлением (например, первый слайд) Set tocSlide = ActivePresentation.Slides(1) ' Очищаем текстовое поле оглавления tocSlide.Shapes("TOC").TextFrame.TextRange.Text = "" ' Проходим по всем слайдам и собираем заголовки For Each slide In ActivePresentation.Slides If slide.Shapes.HasTitle Then tocText = tocText & i + 1 & ". " & slide.Shapes.Title.TextFrame.TextRange.Text & vbCrLf End If i = i + 1 Next slide ' Вставляем текст в оглавление tocSlide.Shapes("TOC").TextFrame.TextRange.Text = tocText End Sub