導入：なぜWord操作の自動化が必要なのか
Excel VBAのスキルを磨いている皆さんの多くは、Excel内で完結する業務を自動化していることでしょう。しかし、実務では「Excelで計算した結果をWordの報告書に流し込む」「Word文書内の特定の文字列を一括修正する」といった、Officeアプリ間を跨ぐ連携作業が頻繁に発生します。手作業でWordの段落設定や文字装飾を繰り返すのは時間の浪費です。今回は、VBAからWordを操作し、文字編集と段落設定を効率化する手法を解説します。
基礎知識：Word VBAの「オブジェクト」構造
WordをVBAから操作する際、重要なのはWordのオブジェクトモデルを理解することです。
Applicationオブジェクト（Word本体）の下にDocumentオブジェクト（文書）があり、その中にParagraph（段落）やRange（範囲）が存在します。
特に「段落（Paragraph）」は、Word文書における基本的な単位です。段落ごとの配置（左揃え・中央揃え）や、段落間の余白設定をVBAで制御できるようになると、定型的な文書作成のスピードが劇的に向上します。
実装：Wordを操作するための準備
Excel VBAからWordを操作するには、VBAエディタの「ツール」メニューから「参照設定」を開き、「Microsoft Word 16.0 Object Library」（バージョンにより数値は異なります）にチェックを入れる必要があります。これにより、入力支援機能（インテリセンス）が働き、開発効率が上がります。
サンプルプログラム：特定の段落を装飾するマクロ
以下のコードは、開いているWord文書の「特定のキーワード」を探し、その段落全体を中央揃えにして、文字を太字にする実用的なサンプルです。
Sub FormatTargetParagraphs()
‘ Wordアプリケーションのオブジェクトを定義
Dim wdApp As Object
Dim wdDoc As Object
‘ 現在開いているWordを取得（Wordが起動している前提）
Set wdApp = GetObject(, “Word.Application”)
Set wdDoc = wdApp.ActiveDocument
‘ 検索と置換の機能を使って特定の段落を操作する
With wdDoc.Content.Find
.Text = “【重要】” ‘ 検索したいキーワード
.Forward = True
.Wrap = 1 ‘ wdFindContinue
Do While .Execute
‘ 見つかった箇所の段落を取得
Dim targetPara As Object
Set targetPara = wdDoc.Range(.Parent.Start, .Parent.End).Paragraphs(1)
‘ 段落設定：中央揃えに変更（wdAlignParagraphCenter = 1）
targetPara.Alignment = 1
‘ フォント設定：太字にする
targetPara.Range.Font.Bold = True
Loop
End With
MsgBox “文書内の該当段落のフォーマットを完了しました。”
End Sub
応用・注意点：現場でのトラブル回避
1. 参照設定の重要性
もし「ユーザー定義型は定義されていません」というエラーが出る場合は、参照設定が漏れています。設定が面倒な場合は、Object型で宣言する「遅延バインディング」を使う手もありますが、コードの補完機能が効かないため、基本は参照設定を推奨します。
2. エラーハンドリングの徹底
Wordが起動していない状態で上記コードを実行するとエラーになります。実務では必ず「Wordが起動しているか確認し、なければCreateObjectで立ち上げる」というプロセスを入れるようにしましょう。
3. 変更履歴の扱い
Wordには「変更履歴の記録」機能があります。VBAで操作を行うと、それらも「変更」として記録されてしまう場合があります。不要な記録を残さないためには、マクロの冒頭で `wdDoc.TrackRevisions = False` を設定して、一時的に記録をオフにするのが現場の知恵です。
文字編集や段落操作の自動化は、単なる時短だけでなく、「人間がやると発生するミス」を排除するという意味で非常に価値があります。まずは簡単な置換処理から始めてみてください。
