This example checks to see which list template is used for the second paragraph in the active document, and then it applies that list template to the selection.
Set myltemp = ActiveDocument.Paragraphs(2).Range. _
ListFormat.ListTemplate
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myltemp