[Iska]

flev45, пробуйте:

Код:

Option Explicit

Sub Sample()
    Dim objParagraph As Paragraph
    
    For Each objParagraph In ActiveDocument.Content.Paragraphs
        If InStr(1, objParagraph.Range.Text, "Laden der Transaktionsdetails", vbTextCompare) > 0 Then
            objParagraph.Range.Delete
        ElseIf objParagraph.Range.ListFormat.ListType = wdListOutlineNumbering Then
            objParagraph.Range.Delete
        End If
    Next objParagraph
End Sub