本示例检查选中文档的列表是否是一个简单的编号列表。

如果是,则应用“项目符号和编号”对话框(“格式”菜单)中“编号”选项卡中的第四个列表模板。

Set myList = ActiveDocument.Lists(1)
If Selection.ListType = wpsListSimpleNumbering Then
    myList.ApplyListTemplate _
    ListTemplate:=ListGalleries(wpsNumberGallery) _
    .ListTemplates(4)
End If