word文档中的自动编号格式去掉，但还要保留原编号内容

• 参考
  • https://bbs.csdn.net/topics/220012068

使用宏

1. 右键功能区 -》勾选“开发工具”
2. 进入“开发工具”功能区 -》 宏 -》输入宏名称 ConvertListNumbersToText，创建
3. 宏内容

   1 2 3 4 5 6 7 8 9 10

   Sub ConvertListNumbersToText() ' ' ConvertListNumbersToText 宏 ' ' Dim kgslist As List For Each kgslist In ActiveDocument.Lists kgslist.ConvertNumbersToText Next End Sub