Тезаурус. Как вытащить из него синонимы?

[Q2W]

Вот в ворде есть тезаурус. У него есть словарь синонимов.
Хочу вытащить его оттуда для собственных нужд.
Никто не сталкивался?
Или хотя-бы куда копать?

[vvs_adm]

Тут был ужас из-за невнимательного прочтения

[Q2W]

Юмор не оценил.

[inq]

Код: Выделить всё

Sub SelectWord()
    Dim mySynObj As Object
    Dim SList As Variant
    Dim i As Variant

    Set mySynObj = Selection.Range.SynonymInfo
    If mySynObj.Word = "" Then
        MsgBox "Please select a word or phrase"
    Else
        SList = mySynObj.SynonymList(1)
        For i = 1 To UBound(SList)
            MsgBox "A synonym for " & mySynObj.Word _
                & " is " & SList(i)
        Next i
    End If
End Sub



[GSerg]

Лучше application.SynonymInfo... удобнее по словарю подставлять...

[Q2W]

Спасибо, работает.
Ещё вопрос в догонку, вот ворд пишет в списке синонимов из тезауруса напротив некоторых слов "(устар.)".
Как мне получить для каждого полученного синонима такое примечание?

[Q2W]

Кстати, мож кто знает, как узнать вообще все русские и английские слова, которые знает тезаурус?

По поводу предыдущего вопроса, если кто не понял, объясняю:
Когда в ворде спрашиваешь у тезауруса синонимы какого-л. слова, он выдаёт список синонимов, и напротив некоторых выдаёт примечание в скобках ("(устар.)", т.е. "устаревшее").
Так вот слова, у которых такая отметка, мне нужно отсеять.