MS Word Macro - Удалить абзацы

Question

Может кто-нибудь, пожалуйста, помогите мне с макросом MS Word, который будет искать определенный символ в каждом абзаце всего документа и удалять абзацы, которые НЕ содержат этот символ.

Я практически ничего не знаю о 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. Немного страшно, но, похоже, работает!