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