Поиск во всем документе Word, включая колонтитулы, надписи, примечания и сноски

[!abiturient!]

Задание: Разработать приложение позволяющее производить поиск во всем документе, включая колонтитулы, надписи, примечания и сноски. Поиск можно начинать с любого места в документе. При нахождении фрагмента поиск останавливается, но приложение должно позволить продолжить поиск в оставшейся части документа, а также удалять результаты поиска.

Делаю так:

Private Sub CommandButton1_Click()
 With Selection.Find
  '.Replacement.ClearFormatting
  '.ClearFormatting
  .Text = TextBox1.Text
  .Forward = False
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
  If Not .Found Then
   MsgBox "Текст не найден"
  End If
 End With
End Sub

Скрипт ищет начиная с положения курсора. Но если я ставлю курсор, в текстовой части, то он ищет в текстовой части, если в колонтитуле, то и ищет в колонтитуле. А нужно чтобы скрипт искал начиная с положения курсора во всех разделах. Помогите пожалуйста!

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

1. Что нужно сделать это выделить в отдельную процедуру код поиска

Private Sub FindText()
 With Selection.Find
  .Replacement.ClearFormatting
  .ClearFormatting
  .Text = TextBox1.Text
  .Forward = False
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
 End With
End Sub

Потом, когда у нас будут готовы остальные процедуры мы допишем сюда код обнаружения текста.
2. Так как метод Find работает в объектах Range и Selection, то процедуру поиска текста по отдельности придется проводить в каждом объекте(сноски, колонтитулы, рамки, текстовые рамки, примечания и т.д.), для основного объекта в котором будет проводиться поиск выберем Section(Раздел), т.к. документ состоит из разделов.

[!abiturient!]

Напишите пожалуйста как с Section(Раздел) это реализовать. При условии, что поиск должен начинаться с раздела в котором находится курсор и с положения курсора.

[Вождь]

Не точна постановки задачи. Нужен последовательный поиск во всем документе (встретили текст - ищем в тексте, встретили надпись - ищем в надписи и т.д.), или в каждом наборе описанных элементов (во всем тексте, во всех надписях, во всех сносках и т.д.)?

Если первое, то самое сложное - организовать перебор всех описанных элементов, в том порядке, в котором они встречаются в документе.

Второй вариант намного проще.

[!abiturient!]

Сообщение от Вождь

Не точна постановки задачи. Нужен последовательный поиск во всем документе (встретили текст - ищем в тексте, встретили надпись - ищем в надписи и т.д.), или в каждом наборе описанных элементов (во всем тексте, во всех надписях, во всех сносках и т.д.)?

Если первое, то самое сложное - организовать перебор всех описанных элементов, в том порядке, в котором они встречаются в документе.

Второй вариант намного проще.

Хотелось бы первым вариантом. Но устроит и второй, главное чтобы поиск начинался с положения курсора и так далее до конца с перебором всех разделов, колонтитулов и т.д.

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

В том то и дело что через Section, мы получаем доступ ко всем объектам, в том числе и колонтитулам

[!abiturient!]

Сообщение от Пименов Александр

В том то и дело что через Section, мы получаем доступ ко всем объектам, в том числе и колонтитулам

Может подскажете как кодом реализовать?

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

Свяжитесь со мной по почте paa1977@mail.ru