VBA如何去掉WORD中的全部自动编号的格式，但数字还保留着？

chenlifeng123

   WORD中，我想取消 项目符号和编号，即自动编号：
一、……
二、……
三、……
     之类。
    我用了百度，多个办法，如：
1．打开Word文档，单击菜单栏上的“格式”一“自动套用格式”一“选项”，选中“自动套用格式”栏，把“自动项目符号列表(U)”前的勾去掉。
2．再选中“键入时自动套用格式”栏，取消“自动项目符号列表”和“自动编号列表”选项，最后按【确定】
或是：
按下Ctrl + A ，格式——项目和符号,选择 无 的图标， 再确定

  可总的结果，要么自动编号格式是取消了，但前面的数字却不见了！要么是格式还是没有取消。
    我想要取消格式，但前面的数字还保留，如何办？

我通过代码 ActiveDocument.Range.ListFormat.ConvertNumbersToText 来执行，能达成效果，但有一个问题：
     
   我用其它代码打开某一个WORD文档，且是不可视的：
With CreateObject("word.application")
    .Visible = False
……
……
With .documents.Open(ThisWorkbook.Path & "\" & FN)
             str = .Range.Text
            .Close False
        End With
…………
…………
    我在上面的str = .Range.Text前面加上 刚才所说的去除自动编辑的代码ActiveDocument.Range.ListFormat.ConvertNumbersToText ，可结果怎么也不能取消自动编号格式！
   请问哪位有解决之道 么？万谢！

gl_zhangt

这个议题关心的人会很多吧？！也许需要对“项目符号和编号”的使用很熟悉才成。关注哦！

songczln2004

就是编号转文本吧，有个宏代码超级简单，编号的格式没了，但编号还在只不过是文本格式了

413191246se

备份文件后应用如下宏（用法：如果有选择则处理选择区域，否则处理全部）：

Sub 自动编号转文本()
    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 If
End Sub

chenlifeng123

感谢老师帮助。昨天有事没有太上这个网。
    后来尝试着，发现：.Range.ListFormat.ConvertNumbersToText 就行了。
老师们的方法我再试下。

chenlifeng123

songczln2004 发表于 2012-5-27 18:42
就是编号转文本吧，有个宏代码超级简单，编号的格式没了，但编号还在只不过是文本格式了

在哪儿呢，您所说的宏代码？

大雨治水

谢谢分享，这个方法很好！

wooddy

感谢！！！！
太好了。

浅草星沙

太好了，万分感谢!

zjgwzj

下面的代码更简单：
Sub ListConvertTxt()
    Dim i As List
    For Each i In ActiveDocument.Lists
        i.ConvertNumbersToText
    Next
End Sub