Обработка
слов
Private Sub Command1_Click()
'садим фокус в большое
текстовое поле
Text1.SetFocus
'устанавливаем начало
выделения - для этого находим
'позицию первого символа
слова, отнимаем единицу,
'чтобы было с начало слова, а
не со второго символа
Text1.SelStart = InStr(1, Text1.Text, Text2.Text) - 1
'длину выделения приравниваем
длине искомого слова
Text1.SelLength = Len(Text2.Text)
End Sub
ОБСУДИТЬ СТАТЬЮ
НА ФОРУМЕ
