Canonの卓上スキャナDR-P215にはOCR機能がついてて嬉しいんだけど、読み取ったテキストはPower Pointの「ノート」に1枚1スライドで書き出されるので、テキストデータとして扱いづらい。 全スライドのノートをⅠつのテキストファイルに書き出すマクロを作ってみました。Power Pointのマクロって初めて。 Option Explicit Public Sub exportNote() Dim fileName As String fileName = ActivePresentation.Path & "\\" & Replace(ActivePresentation.Name, ".pptx", ".txt") Dim fileId As Integer fileId = freeFile Open fileName For Output As #fileId Dim s As Slide Dim str As String Dim slideIndex As Integer Dim slides As Integer slides = ActivePresentation.slides.Count For Each s In ActivePresentation.slides On Error GoTo ERROR_SLIDE slideIndex = s.slideIndex If (s.HasNotesPage) Then Print #fileId, s.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text End If NEXT_SLIDE: Next Close #fileId Exit Sub ERROR_SLIDE: MsgBox slideIndex On Error GoTo 0 GoTo NEXT_SLIDE End Sub 使い方 スキ