TWordApplication

[BESS]

в компоненте TWordApplication есть класс SynonymInfo которому нажо сообщить 2 параметра первый

Word:Widestring

и второй

languageid:olevariant

с первым еще более мение понятно это собственно слово для которого ищутся синонимы а второй это массив языков в словарях которых ищется
но что передать во второй параметр чтоб искал синонимы на русском и английском?
с этим типом сталкиваюсь впервые лит-ру читал ничего внятного помогите плиз что во второй параметр записать?

[BESS]

что никто не поможет мне ????
неужели никто не знает и не знает где найти?

[BESS]

с параметрами WordApplication.SynonymInfo более мение разобрался........ наверное
теперь параметр у класса

WordApplication.SynonymInfo[stroka,id].SynonymList[var вот этот параметр:olevariant]:olevariant

и как вытащить из этой телеги список синонимов?

[Stilet]

и как вытащить из этой телеги список синонимов?

примерно так:

 
i:=low(WordApplication.SynonymInfo[stroka,id].SynonymList);
b:=high(WordApplication.SynonymInfo[stroka,id].SynonymList);
for a:=i to  b do
<Чето тут>:=WordApplication.SynonymInfo[stroka,id].SynonymList[a];

[BESS]

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

примерно так:

 

b:=high(WordApplication.SynonymInfo[stroka,id].SynonymList);
for a:=i to  b do
<Чето тут>:=WordApplication.SynonymInfo[stroka,id].SynonymList[a];

ругается

i:=low(WordApplication.SynonymInfo[stroka,id].SynonymList);

просит

i:=low(WordApplication.SynonymInfo[stroka,id].SynonymList[и_тут_что_то]);

что ей туда передать (((((((

[Stilet]

Открой Ворд нажми Alt-F11 и в справке VBA набери SynonymList или SynonymInfo. Там тебе скажут что нужно и может даже с примерами.