Flattening lists is a lot simpler than your code. You can either do it to the entire doc or to a selection
Code:
'This is for the whole document
ActiveDocument.ConvertNumbersToText (wdNumberAllNumbers)
'This is for a selection
Selection.Range.ListFormat.ConvertNumbersToText wdNumberParagraph