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