ListOutdent 方法

降低指定的 ListFormat 对象的区域中段落的列表级别，其减少量为一个级别。

expression   必需。该表达式返回一个 ListFormat 对象。

示例

本示例依次降低活动文档中每一段落的缩进量，减少量为一个级别。

ActiveDocument.Lists(1).Range.ListFormat.ListOutdent

本例将活动文档中 4 至 8 段的格式设置为多级符号列表，段落的缩进量为一个级别。删除列表中第一段的缩进量。

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