Макрос - копирование текста между повторяющимися объектами

[polepropilen]

Нужен код макроса, который находит текст между повторяющимися объектам и вставляет этот текст в столбик на новом документе.

вот пример текста из которого нужно собрать данные:
http://сайт/города/40766900/#url?to=Агрономия Николаевская область (03850))XXXXXhttp://сайт/города/40766901/#url?to=Адамполь Хмельницкая область (03850) XXXXXhttp://сайт/города/40766307/#url?to=Акимовка Запорожская область (06131) XXXXX 72500http://сайт/города/40766314/#url?to=Александровка Кировоградская область (05242) XXXXX 27300http://сайт/города/4076 и т.д

из текста нужно собрать все, что между знаком "=" и "http:/"
то есть
из этого: =Агрономия Николаевская область (03850))XXXXXhttp://
оставить только это: Агрономия Николаевская область (03850))XXXXX


что то типа этого макроса, только выделение внутреннего текста должно быть после ""дд"" и перед ""оо"" и находить совпадения должно по всему документу и копировать внутренности в столбик на новый

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

этот взят отсюда: http://programmersforum.ru/showpost....92&postcount=6

[viter.alex]

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

Sub RemoveHrefs()
  Dim NewDoc As Document
  Dim CurrDoc As Document

  Set CurrDoc = ActiveDocument
  Set NewDoc = Documents.Add
  NewDoc.Range.InsertAfter CurrDoc.Range.Text
  NewDoc.Range.Find.Execute FindText:="http:*=", _
                            MatchWildcards:=True, _
                            ReplaceWith:="^0013", _
                            Replace:=wdReplaceAll
End Sub

[polepropilen]

Сообщение от viter.alex

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

От большого тебе человеческого СПАСИБО!