This example returns the first list in the selection, and then it applies the first list template (excluding None) on the Numbering tab in the Bullets and Numbering dialog box. The selection can only contain one list.
Set mylist = Selection.Range.ListFormat.List
mylist.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery) _
.ListTemplates(1)