Объект SynonymInfo (Word)

Представляет сведения об синонимах, антонимах, связанных словах или связанных выражениях для указанного диапазона или заданной строки.

Замечания

Используйте свойство SynonymInfo для возврата объекта SynonymInfo . Объект SynonymInfo может быть возвращен либо из диапазона, либо из Microsoft Office Word. Если он возвращается из Word, необходимо указать слово или фразу подстановки и идентификатор языка проверки правописания. Если он возвращается из диапазона, Word использует указанный диапазон в качестве подстановки. В следующем примере возвращается объект SynonymInfo из Word.

temp = SynonymInfo(Word:="meant", LanguageID:=wdEnglishUS).Found

В следующем примере возвращается объект SynonymInfo из диапазона.

temp = Selection.Range.SynonymInfo.Found

Свойство Found , используемое в предыдущих примерах, возвращает значение True , если в тезаурусе обнаружены какие-либо сведения для указанного диапазона или Word. Обратите внимание, что это свойство возвращает значение True не только при обнаружении синонимов, но и при обнаружении связанных слов, связанных выражений или антонимов.

Многие свойства объекта SynonymInfo возвращают объект Variant , содержащий массив строк. При работе с этими свойствами можно назначить возвращаемый массив переменной, а затем проиндексировать переменную, чтобы увидеть элементы в массиве. В следующем примере списку синонимов назначается список синонимов для первого значения выбранного слова или фразы. Функция UBound находит верхнюю границу массива, а затем каждый элемент отображается в окне сообщения.

Slist = Selection.Range.SynonymInfo.SynonymList(1) 
For i = 1 To UBound(Slist) 
 Msgbox Slist(i) 
Next i

Вы можете проверить значение свойства MeaningCount , чтобы предотвратить потенциальные ошибки в коде. В следующем примере возвращается список синонимов для второго значения слова или фразы в выделенном фрагменте и отображаются эти синонимы в области Интерпретация .

Set synInfo = Selection.Range.SynonymInfo 
If synInfo.MeaningCount >= 2 Then 
 synList = synInfo.SynonymList(2) 
 For i = 1 To UBound(synList) 
 Debug.Print synList(i) 
 Next i 
Else 
 MsgBox "There is no second meaning for the selection." 
End If

См. также

Справочник по объектной модели Word

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.