Удаление маркированного абзаца в Word с использованием Excel VBA

Question

У меня есть следующий текст в текстовом документе:

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

Как полностью удалить текст и точку с маркером для строки, содержащей строку <<Mowing1>>, используя VBA?

Заранее спасибо!

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