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