ようやく、この関連の記事も最終段階です。
見出しマップに関連する一連の記事は、こちらの見出しマップの目次 からご確認ください。
今回は、設定したすべてのアウトラインレベルを解除するマクロです。
この場合、「アウトラインレベルを解除する」＝「アウトラインレベルを本文に変更する」と読み替えます。
マクロの解説
１０行と３０行のFor Nextのループにて、処理対象となる文章中の段落(Ｐａｒａｇｒａｐｈｓ)の一つ一つに対して処理をする指令をしています。
そして、２０行ですべての、一つ一つの段落のアウトラインレベルを「本文」に設定しています。
マクロ
Sub OutLineLevel_BodyText()
‘一括解除
Dim myPara As Paragraph
10 For Each myPara In ActiveDocument.Paragraphs
20 myPara.Format.OutlineLevel =
wdOutlineLevelBodyText
30 Next
End Sub
