how to convert from list to text code example

Example: word transform numbered list to text

Alt+F11, Ctrl+G
ActiveDocument.Range.ListFormat.ConvertNumbersToText
_or_
Selection.Range.ListFormat.ConvertNumbersToText