Прочитать на английском

Поделиться через


Объект 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 и обратная связь.