使用 Excel VBA 在 Word 中删除项目符号段落

【问题标题】：Deleting Bullet Paragraph in Word using Excel VBA使用 Excel VBA 在 Word 中删除项目符号段落
【发布时间】：2019-02-27 02:41:22
【问题描述】：

我在word文档中有以下文字：

Total Amount Owed: <<Payment>>
Dates Mowed:
•   2/6/2019
•   2/14/2019
•   <<Mowing1>>

如何使用 VBA 完全删除包含字符串 <<Mowing1>> 的行的文本和项目符号？

提前谢谢你！

【问题讨论】：

标签： vba selection bullet

【解决方案1】：

可以试试

Sub test()
Dim Pg As Paragraph,PgTxt as String

    For Each Pg In ActiveDocument.Paragraphs
        If Not Pg.Range.ListFormat.List Is Nothing Then  'Process only bulleted list
        PgTxt = Pg.Range.Text
            If InStr(1, PgTxt, "<<Mowing1>>") > 0 Then
            Pg.Range.Delete
            End If
        End If
    Next
End Sub

【讨论】：