Paragraph.SeparateList (Word)

Divide uma lista em duas listas à parte. Para as listas numeradas, a nova lista reinicia a numeração com o número inicial, geralmente 1.

ActiveDocument.Lists(1).ListParagraphs(1).SeparateList