VBA Word Macro that fix autonumbering to single list

Hi Freelancers. I attach 2 files, a vídeo showing the task and the file that needs the macro.

I simply want to make all lists "level 1" or father, continuous...

Please dont copy paste, or I will ignore your bid...