макрос_выделение текста до необходимого символа/слова/закладки

[Окоча Юра]

Привет всем! Как создать макрос, выделения части текста до необходимого символа,слова, или поля (закладки). (Например мне надо выделить текст документа токо до слова "покупатель"). )

[Sasha_Smirnov]

Макрос1 (как его создать — тайна!) выделит документ до закладки "дд". (Закладку Вы можете предварительно «закласть» по Shift-Control-F5.)

Макрос2 говорит сам за себя. Ввод искомого буквосочетания можно «прикрутить».

С полями (символ поиска ^d) сложнее, т. к. не работает "любое количество символов" (*).

Sub Макрос1()
    Selection.GoTo What:=wdGoToBookmark, Name:="дд"
    Selection.HomeKey unit:=wdStory, Extend:=wdExtend
End Sub

Sub Макрос2()
'Выделяет документ ДО слова, начинающегося так: «покупател» или «Покупател».'
Selection.HomeKey unit:=wdStory 'курсор - в начало'
With Selection.Find
    .Text = "*[Пп]окупател"
    .Wrap = wdFindStop
    .Format = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .Execute
'Теперье снимем выделение с найденного (начала) слова.'
Selection.MoveLeft unit:=wdWord, Extend:=wdExtend
    
    .Text = ""                  'очистка окна поиска'
    .MatchWildcards = False
End With
End Sub

Программы отлажены и испытаны в Word 2007.

[Окоча Юра]

Спасибо! Можно ли: 1. выделить текст до закладки "дд" с места положения курсора, а не от начала документа; 1. выделить текст от места положения курсора до слова "покупатель"; 3. выделить текст от одной закладки, допустим "оо" до закладки "дд". Что необходимо изменить в Макросе 1 и Макросе 2 для этого? Я бы хотел научиться читать и создавать макросы, помоги с литературкой!!!! )

[Окоча Юра]

Помогите создать макрос для выделения текста документа между двумя закладками, например между закладкой "дд" и "оо".

[Sasha_Smirnov]

Это лишний пост. Замечу, что помощь потребовала 1,5 ч исследований.

Всё-таки VBA (как и все языки) даром не даётся!

И ведь никто (из 111) пока не сказал утешительного слова: типа да что тут париться-то!

[Sasha_Smirnov]

Sub Макрос3()

With ActiveDocument.Range.Bookmarks
   On Error Resume Next
   If .Item("дд").Parent <> ActiveDocument Then MsgBox "Нет в " & ActiveDocument & " закладки ""дд""." ': Exit Sub'
   If .Item("оо").Parent <> ActiveDocument Then MsgBox "Нет в " & ActiveDocument & " закладки ""оо"".": Exit Sub
   a = .Item("дд").Start
   b = .Item("оо").End
End With

ActiveDocument.Range(a, b).Select
End Sub

[Окоча Юра]

Спасибо, друг!!!