Hallo M.O.
lieben dank für die deine Hilfe.
Ich habe versuche es nach dem Beispiel es Umzusetzen. Was mache ich falsch ??
LG, RedCat
Sub loeschen()
Dim SuchString As String
Dim SuchZeichenfolge As String
SuchString = "[BEZEICHNUNG]"
SuchZeichenfolge = "#"
Dim Test As Integer
Test = InStr(1, SuchString, SuchZeichenfolge)
On Error Resume Next
Dim i As Integer
For i = 1 To ActiveDocument.Paragraphs.Count
If InStr(ActiveDocument.Paragraphs(i), Test) Then
ActiveDocument.Paragraphs(i).Range.Delete
End If
Next
End Sub