Question

我正在尝试删除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，不包括“无”，这是我需要的。

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

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

谢谢：）

Answer 1

如果你想删除项目符号并将其转换为没有项目符号，没有列表段落，只是一个文本，这一行就可以解决问题（在if statement内）：

r.ListFormat.RemoveNumbers

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

1 个答案: