本示例查看活动文档的第二段所用的列表模板,然后将该列表模板应用到选定内容。

Set myltemp = ActiveDocument.Paragraphs(2).Range. _
ListFormat.ListTemplate
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myltemp