アウトラインレベルをすべて解除するマクロ

2011年2月6日

ようやく、この関連の記事も最終段階です。

見出しマップに関連する一連の記事は、こちらの見出しマップの目次 からご確認ください。

今回は、設定したすべてのアウトラインレベルを解除するマクロです。

この場合、「アウトラインレベルを解除する」＝「アウトラインレベルを本文に変更する」と読み替えます。

マクロの解説

１０行と３０行の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

関連記事

見出しマップの目次

-Word
-