WORD中去掉编号，但保留下编号的数字的宏

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