MS Word Makro - Absätze löschen

Question

Könnte mir jemand bitte mit einem MS Word Makro helfen, das in jedem Absatz im Dokument nach einem bestimmten Symbol sucht und Absätze löscht, die dieses Symbol NICHT enthalten.

Ich weiß praktisch nichts über VBA, sondern erhielt nur ein riesiges & sperriges Dokument, das ich wirklich schnell bearbeiten muss.

Answer 1

Hier ist ein schnelles Makro, das tun sollte, was Sie wollen - verwenden Sie mit Vorsicht, und vergessen Sie nicht zu sichern!

Stellen Sie den Wert von 'Suchen' so ein, dass er der gesuchte Text ist. Es ist sehr grob und wird den Absatz löschen, wenn Ihr Text nicht irgendwo darin erscheint.

Sub DeleteParagraphContainingString() 

    Dim search As String 
    search = "delete me" 

    Dim para As Paragraph 
    For Each para In ActiveDocument.Paragraphs 

     Dim txt As String 
     txt = para.Range.Text 

     If Not InStr(LCase(txt), search) Then 
      para.Range.Delete 
     End If 

    Next 

End Sub 

Ich habe dies auf Office 2007 versucht. Bit gruselig, aber scheint zu arbeiten!