Нужна помощь.

[Alex_n]

Добрый день!
Нужна помощь в доработке скрипта.
Есть такой текст (очень много...около 6 Мб):

<offer id="312454" available="true">
<url>http://sbantom.ru/catalog/salatniki/312454.html?r1=<?echo $_GET["referer1"] ?>&amp;r2=<?echo $_GET["referer2"] ?></url>
<price>1600.00</price>
<currencyId>RUB</currencyId>
<categoryId>11112</categoryId>
<name>Набор салатников Джапоника &amp;quot;Версаль&amp;quot; 2шт</name>
<description>Набор салатников Джапоника &amp;quot;Версаль&amp;quot; 2шт</description>
</offer>
<offer id="353113" available="false">
<url>http://sbantom.ru/catalog/salatniki/353113.html?r1=<?echo $_GET["referer1"] ?>&amp;r2=<?echo $_GET["referer2"] ?></url>
<price>975.00</price>
<currencyId>RUB</currencyId>
<categoryId>11112</categoryId>
<picture>http://sbantom.ru/upload/iblock/52b/fotoUtah4665.png</picture>
<name>Набор из 2 салатников 13см KEITO &amp;quot;Бакенгем&amp;quot;</name>
<description>Набор из 2 салатников 13см KEITO &amp;quot;Бакенгем&amp;quot;</description>
</offer>

Блоки начинаются с "<offer>" и заканчиваются "</offer>"
Признак блока: available=""
Задача: найти блоки с признаком "false" и удалить их.

Написал вот такой скрипт:
Первая часть - находим признак false, ставим курсор в начало блока.
Вторая часть - находим окончание блока, удаляем блок.

Sub Макросяка_False()

Selection.HomeKey unit:=wdStory 'Перевод курсора в начало документа
For i = 1 To 250   'Если не делать ограничений по циклу поиска, зависает 
                               'комп, приходится ограничивать
With Selection.Find
    .Text = "false"
    .Wrap = wdFindStop
    .Format = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .Execute
    If .Found Then
    Selection.HomeKey unit:=wdLine
    
Else
    
    MsgBox "False закончились, УРА!", vbExclamation
    Exit Sub
    End If
End With
With Selection.Find
    .Text = "*offerq"    'Чтобы находил нужный offer приходится к "/offer" 
                                            'добавлять "q"
    .Wrap = wdFindStop
    .Format = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .Execute
    Selection.Delete
    
End With

Next
End Sub

В общем вопросы:
как сдвинуть конец выделения на один символ чтобы захватывал ">" , а то потом после отработки скрипта приходится много править. А закрывающий тег скрипт не принимает.
Есть ли вариант упростить скрипт, чтобы он отрабатывал весь документ без пауз (без зависаний).
Спасибо.

[Казанский]

Попробуйте поиск-замену с галкой Подстановочные знаки с такой маской:

[<]offer id="[0-9]@" available="false"[>]*[<]/offer[>]^13

Сначала нажимайте Найти далее и убедитесь, что Ворд выделяет правильные куски, потом Заменить все.

[Alex_n]

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

Попробуйте поиск-замену с галкой Подстановочные знаки с такой маской:

[<]offer id="[0-9]@" available="false"[>]*[<]/offer[>]^13

Сначала нажимайте Найти далее и убедитесь, что Ворд выделяет правильные куски, потом Заменить все.

C'est genial!
Абсолютно просто и работает. Причем работает в 100500 раз быстрее чем скрипт.
Спасибо!

[Sasha_Smirnov]

А что навело вас на мысль именно о скрипте (макросе), а не о поиске по шаблону (маске)?

[Alex_n]

Да я и не знал что так можно простой формой Найти/Заменить сделать.
Думал исключительно скриптом. А тут вон оно как. Прогресс.