Выделить текст от слова до нумерованного списка

[Dimasick]

В документе некоторые абзацы - это часть нумерованного списка в формате "Книга 1", "Книга 2" и т.д. Есть абзацы, начинающиеся словом Автор, словом Аннотация и словом Год. Нужно удалить аннотации и годы. Алгоритмически - это в цикле выделять текст от очередного слова "Аннотация" до ближайшего следующего абзаца, начинающегося как нумерованный список "Книга Х", и выделенный фрагмент удалять.
Подскажите, плз, как это выглядит в VBA?
Здесь фрагмент файла: http://ifolder.ru/28017997
На всякий случай уточню, что Word-2003; ручками это сделать тяжело (в реале в файле много страниц), но, может, можно сделать вордовский макрос?

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

начало списка высчитать
конец слова высчитать
а уж какого списка и какого слова только Вы знаете

[Dimasick]

"начало списка высчитать" - КАК?
"а уж какого списка и какого слова только Вы знаете" - я ж для чего-то выложил ссылку на файл.
Поконкретнее можно?

[Пименов Александр]

Public Sub Macros()
Dim ft As Range, rng As Range
        If InStr(1, Selection.FormattedText.ListFormat.ListString, "Книга") > 0 Then
            Set ft = Selection.FormattedText
        Else
            MsgBox "В нумерации абзаца нет слова «Книга»!!!" & Chr(13) _
                & "Выход из программы!!!", vbCritical
        End If
            For i = 1 To ft.ListFormat.List.ListParagraphs.Count
                Set rng = ActiveDocument.Range(ft.ListFormat.List.ListParagraphs(i).Range.Start, ft.ListFormat.List.ListParagraphs(i).Range.End + 1)
                Set rng = ActiveDocument.Range(rng.Start, rng.Paragraphs(2).Range.End)
                Set rng = ActiveDocument.Range(rng.End + 1, rng.End + 1).Paragraphs(1).Range
                    Debug.Print rng.Words(1).Text
                    Do
                        If InStr(1, rng.Words(1).Text, "Аннотация") > 0 Or InStr(1, rng.Words(1).Text, "Год") > 0 Then
                            rng.Delete
                            Set rng = ActiveDocument.Range(ft.ListFormat.List.ListParagraphs(i).Range.Start, ft.ListFormat.List.ListParagraphs(i).Range.End + 1)
                            Set rng = ActiveDocument.Range(rng.Start, rng.Paragraphs(2).Range.End)
                            Set rng = ActiveDocument.Range(rng.End + 1, rng.End + 1).Paragraphs(1).Range
                            Debug.Print rng.Words(1).Text
                        Else
                            Exit Do
                        End If
                     Loop
            Next i
       j = ft.ListFormat.List.ListParagraphs.Count
            Set rng =  ActiveDocument.Range(ft.ListFormat.List.ListParagraphs(1).Range.Start, ft.ListFormat.List.ListParagraphs(j).Range.End)
                With rng.Find
                    .ClearFormatting
                    .MatchWildcards = True
                    .Text = "[^0013]{2;}"
                    .Forward = True
                    .Replacement.ClearFormatting
                    .Replacement.Text = "^p"
                End With
                    rng.Find.Execute Replace:=wdReplaceAll
End Sub

Вот действующий код, ставите курсор на любой абзац с нумерацией Книга и вперед

[Казанский]

Если Аннотация представляет собой один АБЗАЦ, то надо просто удалить три абзаца из каждых пяти. Запустите макрос в приложенном файле (Alt+F8).

Файл следует прикладывать к сообщению, т.к. не у всех есть доступ к файлообменникам на работе.

[Dimasick]

Сообщение от Казанский

Если Аннотация представляет собой один АБЗАЦ, то надо просто удалить три абзаца из каждых пяти. Запустите макрос в приложенном файле (Alt+F8).

Увы, аннотация может занимать несколько абзацев

Сообщение от Казанский

Файл следует прикладывать к сообщению, т.к. не у всех есть доступ к файлообменникам на работе.

Пытался (трижды через "управление вложениями"), но выдавало "Загрузка файла прошла неудачно".

[Dimasick]

Александр, Ваш код работает, спасибо большое!
1. Есть одно маленькое "но": на большом файле скрипт дает сбой. То ли из-за того, что слова "книга", "автор", "год", "аннотация" встречаются и внутри аннотаций, то ли еще из-за чего. В связи с этим вопрос: можно ли выделять фрагменты именно от "Аннотация:" (включительно) до следующего ближайшего начала нумерованного списка ("Книга N") и не удалять его, а скажем, помечать как "Скрытый"?
2. Посоветуйте, плиз, самоучитель (книгу) по VBA (под Word), которую можно свободно скачать в инете и научиться самостоятельно писать скрипты для похожих задач, а то мой опыт ограничен записью макросов в самом Word-е (ну, Вы понимаете, просто начинаю запись, жму кнопки, останавливаю запись, - скрипт готов).