Converts all lists in MS Word document to text.
Sub ListToText() ' ' ListToText Macro ' ' ActiveDocument.ConvertNumbersToText End Sub