Sub 去编号() ' ' 去编号 Macro ' 宏在 2010-1-18 由 wwq 创建 ' Dim kgslist As List For Each kgslist In ActiveDocument.Lists kgslist.ConvertNumbersToText Next End Sub