Word VBA教程:ListOutdent方法

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

expression.ListOutdent

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号