ник: helena
Спасибо osmor за идею!!
вопрос решается:
a = InStr(aa, Forms!форма!КрСодержание.Value, strFindWhat)
If a Then
Forms!форма!КрСодержание.SetFocus
Forms!форма!КрСодержание.SelStart = a - 1
Forms!форма!КрСодержание.SelLength = Len(strFindWhat)
End If
aa = a - 1 + Len(strFindWhat)