1

Тема: Word Как сравнить слова?

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

Проблема: слова не сравниваются. Вот что не так здесь?

strMyString = ActiveDocument.FormFields("dop_cp").Result 'берем значение в поле
retval = Left(strMyString, 3) 'берем первые 3 символа из значения поля
If Trim(retval) = "АБВ" Then
ActiveDocument.FormFields("dop_cpleg").Result = "АБВ" 'изменить значение в вып.списке
End If

Может, есть некая функция, которая сравнивает  слова/фразы и возвращает true или false?

2

Re: Word Как сравнить слова?

Попробуйте использовать функцию InStr;

InStr([<старт>, ] < строка1>, <строка2> [, <сравнение>])    Производит поиск подстроки в строке. Возвращает позицию первого вхождения строки <строка2> в строку <строка1>, <старт> - позиция, с которой начинается поиск. Если этот аргумент пропущен, поиск начинается с начала строки.
Если искомая строка не находится в указанной строке, функция возвращает 0

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.