Автоматическое включение заголовка слайда в раздаточный материал «Примечания» (PowerPoint 2016)

Question

Я хочу создать руководство из презентации PowerPoint, где информация в разделе «Примечания» является частью распечатки. Чтобы я мог отформатировать заголовки слайдов, чтобы они были частью оглавления, я хочу, чтобы заголовок слайда был в тексте, а не просто в части изображения слайда.

В качестве параметров экспорта я могу выбрать примечания под слайдами (но заголовок слайда не в текстовом формате) или распечатать только схему (но примечания к слайдам не включены).

В мастере заметок я вижу поле «Заголовок» и пытался поместить туда заголовок слайда, но, похоже, нет способа автоматически указать заголовок слайда для каждого слайда. то есть я не могу включить переменную для заголовка в поле заголовка.

Если я смотрю в режиме Outline, я не вижу текст заметок.

Есть ли способ автоматически создать раздаточный материал, который включает в себя информацию об общих чертах и текст заметок?

Answer 1

Это подберет текст заголовка каждого слайда и добавит его на страницу заметок. Измените по мере необходимости, чтобы изменить форматирование текста / положение.

Sub AddTitlesToNotesPages()

    Dim oSld As Slide
    Dim oShp As Shape
    Dim sTitleText As String

    For Each oSld In ActivePresentation.Slides

        ' get the slide's title text
        sTitleText = GetTitleText(oSld)

        ' add a text shape with the text to notes page
        ' placement is totally arbitrary; edit to suit
        Set oShp = oSld.NotesPage.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                   0, 0, 500, 100)
        With oShp.TextFrame.TextRange
            .Text = sTitleText
            ' modify other stuff as needed
            .Font.Name = "Arial"
            .Font.Color.RGB = RGB(0, 0, 0)  ' black
            ' and so on
        End With
    Next     ' Slide

End Sub

Function GetTitleText(oSld As Slide) As String
' Returns the title text for oSld if any, or "Slide xxx" if not
    Dim oShp As Shape
    Dim sTemp As String
    For Each oShp In oSld.Shapes
        If oShp.Type = msoPlaceholder Then
            If oShp.PlaceholderFormat.Type = ppPlaceholderCenterTitle Or oShp.PlaceholderFormat.Type = ppPlaceholderTitle Then
                sTemp = oShp.TextFrame.TextRange.Text
            End If
        End If
    Next

    ' if we got this far and didn't find a slide title:
    If Len(sTemp) = 0 Then
        ' return the slide index number
        GetTitleText = "Slide " & CStr(oSld.SlideIndex)
    Else
        ' return the title
        GetTitleText = sTemp
    End If

End Function