ник: Гоблин
Как так? Там разве нет закладки? А определить программно то, что курсор находится в нужном для списка месте можно? Если да, то записал вот макрос. Получилось.
ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
И с 1 начинается список.
Вообще, я не программер и не учился этому делу. В ворде есть кнопарь "ЗАП". Через него в макрос записывается любое действие. Из кода ненужное убираю и как-то работает. 