ListFormat.ListOutdent メソッド (Word)
指定範囲の段落の ListFormat オブジェクトに設定された箇条書きのレベルを 1 つずつ上げます。
構文
式。 ListOutdent
expression 必須です。 'ListFormat' オブジェクトを表す変数。
例
次の使用例は、作業中の文書の最初の箇条書きのレベルを 1 つ上げます。
ActiveDocument.Lists(1).Range.ListFormat.ListOutdent
次の使用例は、MyDoc.doc の 4 ~ 8 番目の段落に既定のアウトラインの箇条書き書式を設定し、段落のレベルを 1 つ下げます。その後、箇条書きの最初の段落のレベルを 1 つ上げます。
Dim docActive As Document
Dim rngTemp As Range
Set docActive = ActiveDocument
Set rngTemp = _
docActive.Range( _
Start:=docActive.Paragraphs(4).Range.Start, _
End:=docActive.Paragraphs(8).Range.End)
With rngTemp.ListFormat
.ApplyOutlineNumberDefault
.ListIndent
End With
docActive.Paragraphs(4).Range.ListFormat.ListOutdent
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。