Word文書を効率的に操作するために、VBA（Visual Basic for Applications）を活用する方法を学んでみませんか？特に、文書内の見出しを自動で取得する技術は、目次の作成や文書構造の把握に非常に便利です。今回は、初心者の方でも理解しやすいように、実際のコード例とともに解説します。
目次
Wordのイメージ
Word VBAで見出しを取得する基本のコード
Word文書内の見出しを取得するためには、VBAを使用して「段落（Paragraph）」を一つずつチェックし、アウトラインレベルが「見出し」に該当するかを確認します。以下は、その基本的なコード例です。
Sub GetHeadings()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.OutlineLevel <> wdOutlineLevelBodyText Then
Debug.Print para.Range.Text
End If
Next para
End Sub
このコードは、文書内のすべての段落を順番に確認し、本文以外の段落（見出し）をイミディエイトウィンドウに表示します。
見出しのレベルを指定して取得する方法
見出しには「見出し1」「見出し2」など、レベルが設定されています。特定のレベルの見出しだけを取得したい場合、以下のようにコードを変更します。
Sub GetHeading1()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.OutlineLevel = wdOutlineLevel1 Then
Debug.Print para.Range.Text
End If
Next para
End Sub
このコードでは、「見出し1」のみを取得し、表示します。
見出しとその段落番号を同時に取得する方法
文書内で見出しとその段落番号を同時に取得したい場合、以下のコードを使用します。
Sub GetHeadingWithNumber()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.OutlineLevel <> wdOutlineLevelBodyText Then
Debug.Print para.ListFormat.ListString & " " & para.Range.Text
End If
Next para
End Sub
このコードでは、見出しの段落番号とその内容を一緒に表示します。
カーソル位置の見出しを取得する方法
現在カーソルが位置している見出しを取得したい場合、以下のコードを使用します。
Sub GetCurrentHeading()
Dim para As Paragraph
Set para = Selection.Paragraphs(1)
If para.OutlineLevel <> wdOutlineLevelBodyText Then
Debug.Print para.ListFormat.ListString & " " & para.Range.Text
End If
End Sub
このコードでは、カーソルが位置している段落が見出しであれば、その段落番号と内容を表示します。
まとめ
Word VBAを活用することで、文書内の見出しを自動で取得し、目次の作成や文書構造の把握が容易になります。初心者の方でも、上記のコードを参考にしながら、自分の目的に合わせてカスタマイズしてみてください。
よくある質問や疑問
Q1: VBAを使うにはどこでコードを入力すれば良いですか？
Wordを開き、「Alt + F11」を押すとVBAの編集画面が開きます。そこで新しいモジュールを挿入し、コードを入力・実行できます。
Q2: 見出しのスタイルが「見出し1」ではなく「見出し2」などの場合、どうすれば良いですか？
コード内の「wdOutlineLevel1」を「wdOutlineLevel2」などに変更することで、特定の見出しレベルを取得できます。
Q3: 見出しのテキストだけでなく、ページ番号も取得したいのですが、可能ですか？
はい、可能です。目次（Table of Contents）を利用することで、見出しとそのページ番号を取得できます。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Word VBAを活用することで、文書内の見出しを効率的に取得し、目次の作成や文書構造の把握が容易になります。初心者の方でも、上記のコードを参考にしながら、自分の目的に合わせてカスタマイズしてみてください。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント