PowerPointのノートを出力

PowerPointの画面下部の「ノート」にメモした内容を、テキストファイルに出力するマクロを書きました。

Sub ExportNotesToTextFile()
    Dim slide As slide
    Dim notesText As String
    Dim filePath As String
    Dim pptPath As String
    
    pptPath = ActivePresentation.Path
    
    filePath = pptPath & "\notes.txt"
    
    Open filePath For Output As #1
    
    For Each slide In ActivePresentation.Slides
        If Not slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = "" Then
            notesText = slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
            Print #1, "Slide " & slide.SlideNumber & ":"
            Print #1, notesText
            Print #1, ""
        End If
    Next slide
    
    Close #1
    
    MsgBox "Notes exported successfully to " & filePath
End Sub

各スライドの「ノート」にメモした内容を、一つのテキストデータとしてスマホやタブレットに入れたり、印刷して持ち歩きたい時などに使えます。