Excel VBA怎么去掉WORD中的全部自动编号的格式，但数字还保留着

备份文件后运行下面这个宏（用法：选中内容就处理选中部分，不选就全处理）：vbsSub 自动编号转文本() If Selection.Type = wdSelectionIP Then ActiveDocument.Content.ListFormat.ConvertNumbersToText ActiveDocument.Content.Find.Execute FindText:=^t, replacewith:= , Replace:=wdReplaceAll Else Selection.Range.ListFormat.ConvertNumbersToText Selection.Find.Execute FindText:=^t, replacewith:= , Replace:=wdReplaceAll End IfEnd Sub