PowerPointで記述したノートのExport

質問

PowerPointでチャートの下に記述したノートメモですが、これを全ページまとめて、WORDなりメモ帳に吐き出す方法を教えてください。できれば、各ページの区切りが分かるように。

回答No.1

n_na_tto · ベストアンサー

マクロを使う方法です。
もし以下の内容が面倒だと感じられたり、セキュリティのためマクロが使えないなら、この書き込みは無視してください。

《準備》
0.「ツール」 →「マクロ」 →「セキュリティー」
　→セキュリティレベル「中」にチェックを入れる
　→パワーポイントをいったん終了して、またすぐ起動
　※マクロを動かすためです。

1.ファイルを開く
→ Alt+F11キーでVisual Basic Editor 画面に
→挿入
→標準モジュール
→右の真っ白な大きいところに以下のコードをコピー&ペースト

Sub NtPrint()
Dim n As Long
Dim myNotes As String
With ActivePresentation
　For n = 1 To .Slides.Count
　　myNotes = myNotes & "スライド " & n & vbCrLf & _
　　.Slides(n).NotesPage.Shapes.Placeholders(2) _
　　.TextFrame.TextRange.Text & vbCrLf & vbCrLf
　Next n
End With
'ワード起動
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
　With objWord
　　.Visible = True
　　.Documents.Add
　　With .Selection
　　　.InsertAfter myNotes
　　　.MoveRight
　　End With
　End With
Set objWord = Nothing
End Sub

2. 標準画面に戻ります。
念のためテスト用として別名で保存してください。

3.ツール→マクロ→マクロ
→1.のマクロを選択→実行

※2007は最初の手順が少し違います。
0.左上の丸いOfficeボタン
→一番下の「PowerPointのオプション」
→セキュリティーセンター
→セキュリティーセンターの設定
→マクロの設定：すべてのマクロを有効にする
→パワーポイントをいったん終了して、またすぐ起動
　※マクロを動かすためです。