Home » ワードマクロ・Word VBAの使い方 » 段落・パラグラフ » 全見出しの文字列を取得するWordマクロ

全見出しの文字列を取得するWordマクロ

対象：Word2007, Word2010, Word2013, Windows版Word2016

「word vba 見出し抽出」
「word vba 見出しを抜き出す」
という検索でアクセスが時折あります。

見出しの文字列だけを取得するには、Word VBAで、どのようなコードを書けばいいのかを探していた方による検索キーワードです。

見出し1の文字列だけを取得するWordマクロを既にご紹介していますので、すべての見出しの文字列を取得するWordマクロをご紹介します。

全見出しの文字列を取得するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブ文書の、すべての見出し文字列がイミディエイトウィンドウに出力されます。

Sub すべての見出しの文字列を取得する()
　Dim par As Paragraph

　For Each par in ActiveDocument.Paragraphs
　　If par.OutlineLevel <> wdOutlineLevelBodyText Then
　　　Debug.Print _
　　　　　par.OutlineLevel & vbTab & _
　　　　　Replace(par.Range.Text, vbCr, "")
　　End If
　Next par
End Sub

サンプルマクロの解説

すべての見出し文字列を取得したいので、アクティブ文書の、すべての段落に対するFor Each～Nextループの中で、
　　For Each par in ActiveDocument.Paragraphs

ParagraphオブジェクトのOutlineLevelプロパティが、wdOutlineLevelBodyText（本文）ではなかったときに、
　　　If par.OutlineLevel <> wdOutlineLevelBodyText Then

Paragraph.OutlineLevelプロパティの値と、（段落記号を除いた）段落の文字列をイミディエイトウィンドウに出力しています。
　　　　Debug.Print _
　　　　　　par.OutlineLevel & vbTab & _
　　　　　　Replace(par.Range.Text, vbCr, "")