MS-Word-Makro - Löschen von Absätzen

Könnte jemand bitte helfen Sie mir mit einer MS-Word-Makro, das würde die Suche für eine bestimmte symbol in jedem Absatz in dem Dokument und löschen von Absätzen, die NICHT enthalten das symbol.

Ich weiß praktisch nichts über VBA, aber erhielt nur eine große & sperrige Dokument, das ich Bearbeiten müssen, müssen Sie wirklich schnell.

InformationsquelleAutor | 2009-05-06

  1. 3

    Hier ist eine kurze makro, das sollten die tun, was Sie wollen - verwenden Sie mit Vorsicht und backup nicht vergessen!

    Setzen Sie den Wert von 'search' zu sein, den text, den Sie suchen. Es ist sehr feucht, und löschen den Absatz, wenn Ihr text wird nicht angezeigt, irgendwo innerhalb es.

    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 versucht, diese auf Office 2007. Bisschen beängstigend, aber scheint zu funktionieren!

    InformationsquelleAutor Paul Ellery

Schreibe einen Kommentar