PowerPointからWordへ：アウトラインを「構造化」して書き出すプロフェッショナル・アーキテクチャ
こんにちは。業務自動化の深淵へようこそ。
多くの開発者が「PPTのテキストをWordにコピペするマクロ」で躓くのは、「オブジェクトの階層構造」と「Wordのスタイル制御」を混同しているからです。ただ文字列を流し込むだけのスクリプトは、明日には使い物にならなくなります。
真の自動化エンジニアは、プレゼンテーションを単なる「スライドの集まり」ではなく、「論理的な文書構造」として捉えます。今日は、PowerPointのプレースホルダー階層を解析し、Wordのスタイル体系（Heading 1, Heading 2…）へ正確にマッピングする堅牢な相互運用ロジックを伝授します。
—
1. なぜ「力技のコピペ」では失敗するのか
初心者が書くコードの典型的な失敗は、`Slide.Shapes`を無作為にループすることです。これでは、テキストボックスの重なり順（Z-order）によって出力順序が崩壊し、Word側でスタイルを適用する際に「どこが見出しで、どこが本文か」を判定できません。
堅牢な設計の要諦：
1. スライド番号順の走査：`Slides`コレクションをインデックスで制御する。
2. プレースホルダーの型定義：`PlaceholderFormat.Type`を判定し、タイトルか本文かを論理的に分離する。
3. Late Bindingの回避：開発時は「Microsoft Word 16.0 Object Library」を参照設定し、コンパイルエラーを未然に防ぐ。
—
2. 実装：構造化アウトライン・エクスポーター
以下のコードは、単なるテキスト抽出ではなく、Wordの「見出しスタイル」をトリガーにしてドキュメントを構築します。
Option Explicit
‘ 事前準備: 参照設定で “Microsoft Word 16.0 Object Library” を追加してください
Public Sub ExportPresentationToWord()
Dim pptApp As Application: Set pptApp = Application
Dim wdApp As Object
Dim wdDoc As Object
Dim sld As Slide
Dim shp As Shape
‘ Wordインスタンスの起動（シングルトン的な制御）
On Error Resume Next
Set wdApp = GetObject(, “Word.Application”)
If wdApp Is Nothing Then Set wdApp = CreateObject(“Word.Application”)
On Error GoTo 0
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
‘ スライドごとのループ
For Each sld In pptApp.ActivePresentation.Slides
‘ タイトルの抽出（見出し1）
If sld.Shapes.HasTitle Then
Call WriteToWord(wdDoc, sld.Shapes.Title.TextFrame.TextRange.Text, “Heading 1”)
End If
‘ 本文プレースホルダーの抽出（見出し2 または 標準）
For Each shp In sld.Shapes
If shp.Type = msoPlaceholder Then
If shp.PlaceholderFormat.Type = ppPlaceholderBody Then
If shp.HasTextFrame Then
Call WriteToWord(wdDoc, shp.TextFrame.TextRange.Text, “Normal”)
End If
End If
End If
Next shp
‘ スライドごとに改ページ
wdDoc.Range.InsertParagraphAfter
wdDoc.Paragraphs.Last.Range.InsertBreak Type:=7 ‘ wdPageBreak
Next sld
MsgBox “ドキュメント生成完了”, vbInformation
End Sub
‘ 共通書き込みロジック：保守性のために分離
Private Sub WriteToWord(ByRef doc As Object, ByVal txt As String, ByVal styleName As String)
Dim rng As Object
Set rng = doc.Paragraphs.Last.Range
rng.Text = txt & vbCrLf
rng.Style = styleName
End Sub
—
3. プロダクション環境で生き残るための「3つの鉄則」
A. オブジェクトの解放（Memory Management）
VBAはCOMオブジェクトの管理が甘いと、メモリリークを起こします。特に`Word.Application`をバックグラウンドで動かす場合、必ず最後に`Set wdApp = Nothing`を行い、必要に応じて`Quit`メソッドを叩く習慣をつけてください。
B. エラーハンドリングの構造化
上記コードは簡略化していますが、実運用では`shp.HasTextFrame`などの判定を厳格に行わないと、画像やグラフが含まれるスライドで`Run-time error 438`（オブジェクトは、このプロパティまたはメソッドをサポートしていません）が多発します。`If … Then … End If`のガード節を重ねる勇気を持ってください。
C. データベース・ファイル連携への拡張
もしこの機能を「定型報告書作成ツール」に昇華させるなら、Wordに直接出力するのではなく、一度XMLやJSONを介在させるか、Wordの「テンプレート（.dotx）」に対して`Range.InsertFile`で結合する手法を推奨します。直接書き込むよりも、企業ブランドのフォントや余白設定を維持できるため、保守コストが劇的に下がります。
—
最後に：エンジニアとしてのマインドセット
自動化とは、単に手を抜くことではありません。「人間が手作業で構造を解釈している曖昧な部分を、論理というコードで定義し直すこと」です。
今回紹介した「見出しスタイルへのマッピング」は、単なる技術ではなく、ドキュメントの品質を担保するアーキテクチャそのものです。このロジックをベースに、皆さんの業務に合わせてさらに磨き上げてみてください。
もし、特定の複雑なレイアウト（段組みや複雑な表）の解析で壁に当たったら、また戻ってきてください。その時は、DOM（Document Object Model）を直接操作するより高次なアプローチを伝授しましょう。
さあ、コードを書いて、退屈な手作業を過去のものにしてください。
