MS Wordのマクロ - 誰かが文書全体ですべての段落内の特定のシンボルを検索し、そのシンボルが含まれていない段落を削除しますMS Wordのマクロで私を助けてもらえ段落

Question

を削除します。

私は、VBAについて事実上何も知らないが、ちょうど私が本当に速い編集する必要がある巨大な&扱いにくい文書を受け取りました。注意して使用し、バックアップすることを忘れないでください -

Answer 1

は、ここであなたが欲しいものを行う必要があり、迅速なマクロです！

は、あなたが探しているのテキストであることを「検索」の値を設定します。非常に粗末なもので、テキストがその中のどこかに表示されない場合は、段落が削除されます。

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 

私はOffice 2007でこれを試しました。ビット怖いですが、動作するようです！