【入門編】【中級者】スライドのノート部分（スピーカーノート）だけをテキストファイル（.txt）に一括抽出して保存する議事録作成支援マクロ – PowerPoint VBA解析バイブル

こんにちは！パワポ仕事の自動化、進んでいますか？

「マクロの記録」ボタンを押してみたものの、PowerPointにはExcelのような記録機能がなくて途方に暮れてしまった……。そんな経験はありませんか？ そう、PowerPoint VBAの世界では、私たち自身がコードを紡ぎ出し、オブジェクトの命を吹き込んでやる必要があります。

今回は、実務でめちゃくちゃ役立つ「全スライドのスピーカーノートを綺麗にテキストファイルに一括抽出する議事録作成支援マクロ」を題材に、PowerPoint VBAの本質を一緒に紐解いていきましょう。

ここをクリアすれば、あなたも「脱・初心者」のステージへ一歩踏み出せますよ。温かく導きますので、リラックスしてついてきてくださいね！

—

なぜ、ノートの抽出にVBAが必要なのか？

プレゼンのリハーサルや、会議の議事録作成の際、スライドの下にある「スピーカーノート」にメモを書き溜めることはよくありますよね。しかし、後から「このノートの内容だけをテキストにしてメールで共有してほしい」「AIに読み込ませて要約させたい」となった時、手作業で1枚ずつコピペしていませんか？

スライドが10枚ならまだしも、50枚、100枚となると手の疲労は限界を迎え、ミスも発生します。
ここに「オブジェクトのライフサイクルと階層構造」を理解したVBAを投入すれば、わずか1秒でこの苦行から解放されます。

—

攻略の鍵：PowerPointの構造（オブジェクト階層）を理解する

Excelが「セル」という平らな表の世界だとすれば、PowerPointは「ロシアの民芸品マトリョーシカ」のような入れ子構造をしています。ここを勘違いすると、VBAでエラーの海に溺れることになります。

ノートを抽出するための階層のイメージはこうです：

1. `Presentation` （ファイル全体）
↓
2. `Slide` （個々のスライド）
↓
3. `NotesPage` （スライドのノートページ）
↓
4. `Shape` （ノートページ中にあるテキストボックス等のパーツ）
↓
5. `TextFrame` / `TextRange` （実際の文字列）

「えっ、スライドの中にそんなに階層があるの？」と思いましたか？ そうなんです。PowerPointのノートは、単なるプロパティではなく、「ノート専用のスライド（NotesPage）」という独立したページとして裏で管理されています。

—

実装：魂を込めた実用マクロコード

それでは、開発環境（VBE：Alt + F11）を開き、標準モジュールに以下のコードを貼り付けてみてください。実務ですぐに使えるよう、エラーハンドリングやファイルの文字コード（UTF-8）への配慮まで組み込んだプロ仕様のコードです。

Sub ExportNotesToTextFile()
‘ =====================================================================
‘ 目的: アクティブなプレゼンの全スライドからノートを抽出し、TXTファイルとして保存する
‘ 対象: 中級者を目指すVBAエンジニアへ捧ぐ実用スクリプト
‘ =====================================================================

Dim pptPres As Presentation
Dim sld As Slide
Dim notesShape As Shape
Dim fso As Object
Dim txtFile As Object
Dim filePath As String
Dim i As Long
Dim notesText As String
Dim extractedCount As Long

‘ 1. 現在開いているプレゼンテーションを特定
Set pptPres = ActivePresentation

‘ プレゼンが一度も保存されていない場合のガード処理
If pptPres.Path = “” Then
MsgBox “このプレゼンテーションファイルを一度保存してから実行してください。”, vbExclamation, “保存エラー”
Exit Sub
End If

‘ 2. 保存先のファイルパスを自動生成（同階層に「プレゼン名_Notes.txt」を作成）
filePath = pptPres.Path & “\” & Left(pptPres.Name, InStrRev(pptPres.Name, “.”) – 1) & “_Notes.txt”

‘ 3. FileSystemObject (FSO) を使ってテキストファイルを作成
‘ ※VBA標準のOpen Statementよりもモダンで文字化けに強い手法です
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 第3引数を True にすることで、同名ファイルが存在する場合に上書きを許可
‘ 第4引数を True (-1) にすることで UTF-8 でエンコード（日本語の文字化け防止）
On Error GoTo ErrorHandler
Set txtFile = fso.OpenTextFile(filePath, 2, True, -1)

extractedCount = 0

‘ 4. 全スライドを巡回するループ
For i = 1 Wto pptPres.Slides.Count
Set sld = pptPres.Slides(i)
notesText = “”

‘ スライドの「ノートページ」からテキストが格納されているシェイプを探す
‘ NotesPageの中には「スライド画像」「ノート本文」「ページ番号」などのシェイプが存在する
For Each notesShape In sld.NotesPage.Shapes
‘ プレースホルダー（入力枠）の種類が「ノート（ppPlaceholderBody）」であるか判定
If notesShape.Type = msoPlaceholder Then
If notesShape.PlaceholderFormat.Type = ppPlaceholderBody Then
If notesShape.HasTextFrame Then
If notesShape.TextFrame.HasText Then
notesText = notesShape.TextFrame.TextRange.Text
Exit For ‘ ノート本文を見つけたらループを抜ける
End If
End If
End If
End If
Next notesShape

‘ 5. 抽出したテキストをファイルに書き込む（ヘッダーと区切り線付き）
txtFile.WriteLine “————————————————–”
txtFile.WriteLine “【スライド ” & i & ” のノート】”
txtFile.WriteLine “————————————————–”
If Trim(notesText) <> “” Then
txtFile.WriteLine notesText
Else
txtFile.WriteLine “(ノートなし)”
End If
txtFile.WriteLine vbCrLf ‘ 空行を挿入

extractedCount = extractedCount + 1
Next i

‘ 6. クリーンアップ
txtFile.Close
Set txtFile = Nothing
Set fso = Nothing

‘ 完了メッセージ
MsgBox “ノートの抽出が完了しました！” & vbCrLf & _
“保存先: ” & filePath & vbCrLf & _
“総抽出スライド数: ” & extractedCount & “枚”, vbInformation, “処理成功”
Exit Sub

ErrorHandler:
‘ 予期せぬエラーが発生した場合の安全装置
If Not txtFile Is Nothing Then txtFile.Close
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub

—

コードの注目ポイント（ここが分かれば怖くない！）

① `sld.NotesPage.Shapes` の罠を避ける

ノートページを開くとわかりますが、そこには「縮小されたスライドの画像」と「文字を入力するボックス」の2つ以上のシェイプ（図形）が存在しています。
そのため、すべてのシェイプを無条件に読み込もうとすると、画像データや予期せぬテキストまで引っ張ってきてしまいます。

ここで活躍するのがこの条件分岐です：

If notesShape.PlaceholderFormat.Type = ppPlaceholderBody Then

これにより、「ノートを入力するための専用エリア（本文プレースホルダー）」ピンポイントで中身を射抜くことができます。この精度の高さが、プロのVBAコードたる所以です。

② `FileSystemObject (FSO)` によるモダンなファイル操作

古いVBAの作法（`Open “C:\…” For Output As #1`）を使うと、現代のWindows環境では日本語が盛大に文字化けします。
今回のコードでは `CreateObject(“Scripting.FileSystemObject”)` を使用し、第4引数に `-1（TristateTrue）` を指定することで、綺麗にUTF-8フォーマットで保存できるようにしています。これで、後からメモ帳やVS Codeで開いても文字化けの心配はありません。

—

陥りやすいエラーと対処法

1. 「オートメーション エラー」や「オブジェクトがありません」と言われる

• 原因: まだ一度もスライドにノートを入力したことがない、あるいはノートページを一度も触っていないスライドが含まれている場合、内部的にNotesPageが生成されていないことがあります。
• 対策: 基本的には上記のコードで安全にガードしていますが、もし挙動がおかしい場合は、プレゼンを一度保存し直してから実行してください。

2. 抽出されたテキストファイルが空っぽになる

• 原因: スライドのノート欄ではなく、スライドの表画面（シェイプ）に文字を書いてしまっているケースです。
• 対策: PowerPointウィンドウの下部にある「ノート」タブをクリックして、正しくノート欄にテキストが入力されているか確認しましょう。

—

おわりに

いかがでしたでしょうか？
「PowerPointの裏側の構造（オブジェクト階層）」と「ファイル出力のお作法」さえ掴んでしまえば、スライドの操作はあなたの思いのままです。

ここをクリアすれば、PowerPoint VBAの基本はバッチリです！
このマクロをベースに、「特定のキーワードが含まれるノートだけを抽出する」「クラウド上のフォルダに自動保存する」といったカスタマイズに挑戦してみてください。あなたのデスクワークが、より知的でクリエイティブな時間になることを応援しています。