Word 2007：從列表中刪除子彈的宏

我試圖刪除Word 2007文檔中的所有項目符號。這是一個非常大的文檔，所以我試圖用宏來解決這個問題。我沒有經驗的辦公套件或VBA腳本，所以我有點迷失方向..Word 2007：從列表中刪除子彈的宏

我已經嘗試了不同的解決方案，我在互聯網上找到，我發現最好的是一個腳本，應用列表中的新模板，它是這樣的：

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」時才起作用。我試圖瞭解如何獲取該文件的默認符號樣式，並改變它，但沒有運氣..

我希望有人可以給我一些好的建議..

謝謝:)

來源

2014-03-19 giocarmine

如果你想刪除子彈，並將其轉換爲無子彈，沒有列表段落，只是一個文本，這一行將做的伎倆（在您的if statement）：

r.ListFormat.RemoveNumbers

來源

2014-03-19 20:21:01

Word 2007：從列表中刪除子彈的宏

回答

相關問題