Макрос, поиск и замена текста

[duhamuk]

Здравствуйте! Подскажите можно ли написать макрос, который производит поиск и удалит текст во всем документе указанный в таком формате: "[начальный текст]...[конечный текст]"?

[Ципихович Эндрю]

1
можно
2
как
макрос на запись
в найти текст
в заменить ""
ОК???

[duhamuk]

Я имел в виду - как контейнер:
"
<имя_контейнера>
содержимое
</имя_контейнера>
"
Таких контейнеров в файле много у них разное содержимое.
т.к. содержимое контейнера разное, я указываю только начало(<имя_контейнера>) и конец(</имя_контейнера>), макрос находит все контейнеры с таким именем и удаляет их вместе с содержимым.

[Казанский]

Попробуйте. Можно брать имена из отдельного файла, если это не разовая задача.

Sub Макрос1()
Dim sName$
Do
    sName = InputBox("Введите имя контейнера (без знаков '<','>'):")
    If sName = "" Then Exit Do
    Selection.HomeKey unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\<" & sName & "\>*\</" & sName & "\>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Loop
End Sub

Имена НЕ проверяются на наличие служебных символов режима подстановочных знаков!

[duhamuk]

То что нужно! Благодарю!