[Nykolyn]

На 5-ти форумах задал этот вопрос, а в ответ тишина!!!

Здравствуйте! Помогите, пожалуйста, с таким вопросом: нужна отдельная программка или дополнение к блокноту или MSWord или...
Задача следующая: вводим в текстовый редактор значения

1) 16 72 12 17 93 56 78 31 45 57
2) 34 56 83 21 37 51 29 17 23 45
… и т.д.

Есть ли какая либо возможность, чтобы при вводе новой строки, программка отслеживала совпадения последних трех значений. Например, я начинаю вводить с новой строки:

n) 14 82 21 37 51 и программа автоматически находит совпадение трех последних введенных значений в строке №2
Заранее спасибо!

[lmikle]

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

[Nykolyn]

Сообщение от lmikle

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

Набрал три циферки, выделил, скопировал, нажал Ctrl+F, нажал Ctrl+V, Enter, м-да совпадений не нашло...
Начинаем с начала, набираем новые три циферки...

P.S. думаю комментировать здесь что-то, будет излишним!

[lmikle]

А что, макрос написать в том же ворде и вывесить его на кнопку?

[Nykolyn]

Сообщение от lmikle

А что, макрос написать в том же ворде и вывесить его на кнопку?

И нажимать каждый раз после ввода нового значения?

[lmikle]

Ну, вообще, если не ошибаюсь, то можно сделать по вводу пробела автоматический запуск.

[Nykolyn]

Сообщение от lmikle

Ну, вообще, если не ошибаюсь, то можно сделать по вводу пробела автоматический запуск.

Не знаю ерунда какая-то выходит, не получается сделать шаг:

Код:

Sub Test()
    Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "(нужно чтобы вот тут вставлялись скопированные три слова)"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

[Nykolyn]

Ура получилось! Подключил Microsoft Forms 2 Object Library, и с его помощью реализовал вставку из Clipboard в поисковую форму:

Sub Test()
Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend
Selection.Copy
Dim iData As DataObject
Set iData = New DataObject
iData.GetFromClipboard
iText = iData.GetText
Selection.Find.ClearFormatting
With Selection.Find
.Text = iText
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub