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

Question

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

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

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

提前致谢！

Answer 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

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

Deleting Bullet Paragraph in Word using Excel VBA

vba

selection

bullet