Нужен код макроса, который находит текст между повторяющимися объектам и вставляет их в столбик на новом документе.
вот пример текста из которого нужно собрать данные: 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 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
. С магазином повезло.
1
