Добрый день!
Помогите юному.
Как можно в тексте выбрать всё что не похоже на образец и сохранить в файле.
Записываю макрос - всё работает.
Запускаю запись ничего не выходит, что за юмор от Микрософта?

Вопрос то как сделать что бы работал.
Средствами worda работает , а в записанном макросе нет

Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 18.06.2007
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<4[!7]???"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With

Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
End Sub

Ищет номера отличающиеся от шаблона по второй цифре

Нажал ! :-(
на результат никак не повлияло ???
Попадается одно единственное значение и всё !!!
Вот пример
47567
47654
47867
45768
47345
46567
47867

Результат :

45768
46567

- тут всё верно.
Записанный макрос даёт - 45768 и всё ?
В чем причина не знаю, прошу помочь !

Откровенно говоря повлияло - посколька выделенным оказывается всё то и в новый файл копируется всё, клон получается.
А результат нужен не такой, поэтому и написал не влияет.
На положительный результат имею в виду.
Да и копирует одну строчку если добавить в код после

End With
Selection.Find.Execute

А так как макрос записал
без ( Selection.Find.Execute)

ошибку дает что ничего не выбрано для копирования.

Отзовитесь Шварцнеггеры мысли !!!
Чем код оживить ???

Спасибо за отклик - добрая душа !
К сожалению документ создает, чистый, но повторов в цикле нет, вроде как не находит ничего.
И в открымый документ ничего не ложит - увы.
Может не происходит считывания всего текста для обработки ?

Добрый день lena_#### !
Тот фай, что Вами прикреплен - работает как надо.
Спасибо Вам огромное.
Дай Вам Бог здоровья.
Я маленький вопрос проверил.
Копирую код в Normal -Modul и там он не работает.
Думалось запускать макрос из любого документа через кнопку на панели.
Можно Вас попросить у себя тоже так проверить - через Normal, какой результат будет у вас.
Ну а за Ваш труд ещё раз спасибо !

Теперь пошу прощения за торопливость свою.
И там всё заработало (в Normal)

заменил в коде:-

Set v_CurDoc = ThisDocument

на

Set v_CurDoc = ActiveDocument

и всё заработало !!!!
С благодарностью к Вам, тему можно закрыть.