こんにちは。業務自動化の世界へようこそ。
「マクロの記録」ボタンを押すだけの日常から卒業したいと考えた瞬間、あなたはすでにエンジニアの入り口に立っています。今日は、単なる自動化を超え、Officeアプリ同士を連携させる「相互運用（COMオートメーション）」の深淵へあなたを招待しましょう。
今回のテーマは、「PowerPointの構成案を、Wordの構造化ドキュメントへ一瞬で変換する」という技術です。
—
なぜ、ただの「コピペ」ではいけないのか？
PowerPointからWordへテキストを移すとき、多くの人は手作業でコピー＆ペーストを繰り返します。しかし、それではドキュメントの「構造（見出しレベルなど）」が失われてしまいます。
私たちが目指すのは、「スライドのタイトル＝見出し1」「本文の箇条書き＝標準スタイル」といった意味論（セマンティクス）を維持したまま、Wordファイルとして書き出すことです。これこそが、プロが業務で使う「構造化」の真髄です。
—
開発の心構え：ライブラリを「参照」する
VBAでWordを操作するには、Wordの「オブジェクトモデル」を使えるようにする必要があります。
1. PowerPointで `Alt + F11` を押し、VBEを開く。
2. メニューバーの「ツール」→「参照設定」をクリック。
3. 一覧から 「Microsoft Word 16.0 Object Library」 にチェックを入れる。
これで、あなたのPowerPoint VBAはWordという名の「強力な副官」を操る権限を得ました。
—
実装コード：PowerPointからWordを操る
以下のコードを標準モジュールに貼り付けてください。コードには、私が現場で培った「エラーを未然に防ぐための工夫」を込めています。
Option Explicit
‘ PowerPointのスライド構成をWordの構造化ドキュメントとして出力する
Sub ExportPresentationToWord()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim sld As Slide
Dim shp As Shape
‘ 1. Wordアプリケーションの起動（既に開いていれば利用）
On Error Resume Next
Set wdApp = GetObject(, “Word.Application”)
If wdApp Is Nothing Then
Set wdApp = New Word.Application
End If
On Error GoTo 0
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
‘ 2. 各スライドをループ処理
For Each sld In ActivePresentation.Slides
‘ タイトルを取得して「見出し1」として設定
If sld.Shapes.HasTitle Then
With wdDoc.Paragraphs.Add.Range
.Text = sld.Shapes.Title.TextFrame.TextRange.Text & vbCr
.Style = wdDoc.Styles(“見出し 1”)
End With
End If
‘ 本文を取得して「標準」スタイルで設定
For Each shp In sld.Shapes
If shp.HasTextFrame And shp.Type <> msoPlaceholder Then
If shp.TextFrame.HasText Then
With wdDoc.Paragraphs.Add.Range
.Text = shp.TextFrame.TextRange.Text & vbCr
.Style = wdDoc.Styles(“標準”)
End With
End If
End If
Next shp
Next sld
MsgBox “Wordへの変換が完了しました！”, vbInformation
End Sub
—
陥りやすい罠と「プロの視点」
コードを動かす際、初心者が必ずと言っていいほどハマるポイントが2つあります。ここをクリアすれば、あなたはもう中級者です。
1. オブジェクトの開放（メモリ管理）
今回のコードではあえて省略していますが、大規模な処理を行う際は `Set wdApp = Nothing` を忘れずに行いましょう。COMオブジェクトは放置するとメモリリークの原因となります。「使い終わったら掃除する」のは、プロの基本マナーです。
2. 「HasTextFrame」の確認
スライド上のすべてのオブジェクトがテキストを持っているわけではありません。画像や図形（Shape）も含まれます。`If shp.HasTextFrame` というチェックを入れないと、テキストを持たないオブジェクトに触れた瞬間にコードは停止（エラー）します。「相手（オブジェクト）がその機能を持っているか」を確認してから操作する、これが防衛的プログラミングの第一歩です。
—
次のステップへ
このコードをマスターしたら、次は「特定のフォントサイズだけ見出し2に変換する」といった、より高度な条件分岐を追加してみてください。
自動化の本質は、「作業を減らすこと」ではなく、「作業を構造化し、誰にでも再現可能な品質に高めること」にあります。このWord連携技術は、そのための強力な武器になるはずです。
もし分からないことがあれば、いつでも聞いてください。あなたのエンジニアとしての旅路を、私はいつでも応援しています。それでは、素晴らしい自動化ライフを！
