ListIndent 方法

为 ListFormat 对象的区域中的段落增加列表级别，其增加量为一个级别。

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

示例

本示例设置文档 1 的第一个列表中的每一段依次缩进一个级别。

Documents(1).Lists(1).Range.ListFormat.ListIndent

本示例设置活动文档 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