如果是,则应用“项目符号和编号”对话框(“格式”菜单)中“编号”选项卡中的第四个列表模板。
Set myList = ActiveDocument.Lists(1)
If Selection.ListType = wpsListSimpleNumbering Then
myList.ApplyListTemplate _
ListTemplate:=ListGalleries(wpsNumberGallery) _
.ListTemplates(4)
End If