Поиск текста между ограничителями, смена стиля и копирование

[domo22]

Нужен макрос (word 2003), который делает следующее:
- находит в тексте текст "строка1"
- находит в тексте текст "строка2"
- выделяет текст от "строка1" до "строка2", не включая сами "строка1" и "строка2"
- меняет стиль выделенного текста на заданный стиль
- копирует выделенный текст куда-то в буфер с нового абзаца
- повторяет предыдущие шаги до конца файла
- вставляет скопированные куски текста в новый документ.

Желательно, конечно, чтобы макрос мог работать по выбору - либо обработать весь файл сразу, либо спрашивать на каждом вхождении, менять ли его стиль и копировать или искать далее. Но если это сложно, то хотя бы весь файл сразу. Пример прилагается.

Помогите, пожалуйста.

[Казанский]

Пробуйте

Sub Макрос1()
Dim r As Range, doc1 As Document, doc0 As Document, en&
Set doc0 = ActiveDocument
Set r = doc0.Range
en = r.End
Set doc1 = Documents.Add
While r.Find.Execute("\[*\]", False, False, True, False, False, True, wdFindStop, False, , False)
    Set r = doc0.Range(r.Start + 1, r.End - 1)
    If r.Text Like "*####*" Then
        doc1.Range.InsertAfter r.Text & vbCr
        r.HighlightColorIndex = wdYellow
        r.Font.Italic = True
    End If
    Set r = doc0.Range(r.End + 1, en)
Wend
End Sub

[domo22]

Во-первых, сразу же спасибо, т.к. данный макрос работает и делает то, что показано в примере. Однако, только в данном конкретном случае с примером и не использует стиль и строки поиска. Хотелось бы по возможности чуть его подправить в плане большей гибкости, добавив использование строк поиска и стиля:
Dim Строка1 As String, Строка2 As String, МойСтиль As Word.Style

и дальше использовать эти переменные.

Можете так сделать?