Word VBA教程:ListIndent方法

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

expression.ListIndent

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

VBA示例

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

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号