Sub 見出し1の文字列を取得する() Dim par As Paragraph For Each par In ActiveDocument.Paragraphs If par.Style.NameLocal = "見出し 1" Then Debug.Print Replace(par.Range.Text, vbCr, "") End If Next End Sub 上記のマクロを実行すると、アクティブな文書で、「見出し 1」スタイルの設定されている段落の文字列がイミディエイトウィンドウに出力されます。 サンプルマクロで行っている処理 アクティブ文書の全段落に対してFor Each~Nextループを回して、 For Each par In ActiveDocument.Paragraphs 段落のスタイル名が「見出し 1」のときに、 If par.Style.NameLocal = "