Word VBA教程:NumberFormat属性

返回或设置指定列表级别的数字格式。String 类型,可读写。

expression.NumberFormat

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

说明

百分号 (%) 后接从 1 到 9 的任何数字代表不同级别的编号样式。例如,如果要将第一级设为“Article I”,第二级设为“Article II”,以此类推,则可使 NumberFormat属性的字符串为“Article %1”,将NumberStyle属性设置为 wdListNumberStyleUpperCaseRoman。

如果将 NumberStyle属性设置为 wdListNumberStyleBullet,则 NumberFormat属性的字符串只能包含一个字符。

VBA示例

本示例创建一个列表模板,该模板各级依次缩进,并用阿拉伯数字和句点设置各级的格式,再将新的列表模板应用于所选内容。


Set LT = ActiveDocument.ListTemplates.Add(OutlineNumbered:=True)
For x = 1 To 9
    With LT.ListLevels(x)
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = InchesToPoints(0.25 * (x - 1))
        .TextPosition = InchesToPoints(0.25 * x)
        .NumberFormat = "%" & x & "."
    End With
Next x
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=LT

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号