多种对象![]() ![]() ![]() |
由 ListTemplate 对象所组成的集合,该集合中的对象代表了“项目符号和编号”对话框中各选项卡上的七种预定义列表格式。
用 ListTemplates 属性可返回 ListTemplates 集合。下列示例显示一个消息框,以表明活动文档中各列表模板的级别状态(单级或多级)。
For Each lt In ActiveDocument.ListTemplates
MsgBox "This is a multiple-level list template - " _
& lt.OutlineNumbered
Next LT
用 Add 方法可在指定的文档或模板的列表模板集合中添加一个列表模板。下列示例在活动文档中添加一个列表模板,然后将该模板应用于选定内容。
Set myLT = ActiveDocument.ListTemplates.Add
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myLT
用 ListTemplates (index) 可从列表库中返回单个列表模板,其中 index 是从 1 至 7 的数字。下列示例使一个对象变量等于活动文档中第三个列表所用的列表模板,再将选定内容设置为该模板所代表的列表格式。
Set mylt = ActiveDocument.ListTemplates(3)
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=mylt
注意 对于通过列表库访问到的列表模板来说,有些属性和方法(例如,Convert 和 Add)是无效的。可以修改这些列表模板,但不能改变其所属的列表库类型(wdBulletGallery、wdNumberGallery 或 wdOutlineNumberGallery)。
用 ListGallery 对象的 Modified 属性,可查看指定列表模板是否保留了 Word 内置格式。用 ListGallery 对象的 Reset 方法,可重新设为原来的列表格式。
返回一个 ListTemplate 对象后,可用 ListLevels (index) 返回单独的 ListLevel 对象,其中 index 是从 1 至 9 的数字。通过 ListLevel 对象,可访问指定列表级别的所有格式属性,例如,Alignment、Font、NumberFormat、NumberPosition、NumberStyle 和 TrailingCharacter。
用 Convert 方法可将一个多级列表转换成单级列表模板。