Word 2007：从列表中删除项目符号的宏答案

【问题标题】：Word 2007: Macro to remove bullets from listsWord 2007：从列表中删除项目符号的宏
【发布时间】：2014-04-25 08:06:54
【问题描述】：

我正在尝试删除 Word 2007 文档中的所有项目符号。这是一个非常大的文档，所以我尝试使用宏来解决这个问题。我没有办公套件或 VBA 脚本方面的经验，所以我有点迷失方向..

我尝试了在互联网上找到的不同解决方案，我发现最好的是一个在列表上应用新模板的脚本，它是这样的：

Sub ReplaceBullets()
    Dim oPara As Paragraph

    For Each oPara In ActiveDocument.Paragraphs()
        Set r = oPara.Range
        If r.ListFormat.ListType = wdListBullet Then
            r.ListFormat.ApplyListTemplate _
            ListTemplate:=ListGalleries(wdNumberGallery) _
                .ListTemplates(1)
        End If
        Set r = Nothing
     Next
End Sub

但我从文档中看到，我可以在“ListTemplates”中选择的范围从 1 到 7，不包括我需要的“none”。

我也尝试使用“r.ListFormat.ApplyBulletDefault”方法而不是更改列表模板，希望默认样式为“none”。显然，它仅在文档的默认样式为“无”时才有效。我试图了解如何获取文档默认项目符号样式并更改它，但没有运气..

希望有人能给我一些好的建议..

谢谢你:)

【问题讨论】：

标签： vba ms-office ms-word

【解决方案1】：

如果您想删除项目符号并将其转换为没有项目符号、没有列表段落、只是简单的文本，则此行可以解决问题（在您的 if statement 内）：

r.ListFormat.RemoveNumbers

【讨论】：