How to do this

SMI// · August 13th, 2009, 12:18 PM

Hi friends

I am building a list of most difficult words I come across and then use shift+F7 to look up thesaurus and try to write most matching words across the columns in the same row.

I have not been able to find the method or property for the thesaurus collection.

I simply want to know the count of available thesaurus for a given word. For example if active cell has word "expert" then I wouldfirst like to know how many thesaurus are there e.g "specialist","authority","professional" etc. Then using sort of index property I will run a loop for the total count of available words and will copy them across the columns using offset property.

I hope you got it.

Thanks.

Shasur · August 13th, 2009, 09:24 PM

Hi

I have done something similar in Word

Code:

Sub Retrieve_Word_Info()
Dim arSynonyms
Dim oSynInfo As SynonymInfo
Dim arSynList
Dim sWord As String
sWord = "expert"
Set oSynInfo = Application.SynonymInfo(sWord)
If oSynInfo.Found = True Then
    For i1 = 1 To oSynInfo.MeaningCount
        arSynList = oSynInfo.SynonymList(i1)
        For i2 = 1 To UBound(arSynList)
            MsgBox oSynInfo.MeaningList(i1) & " := " & arSynList(i2)
        Next
    Next i1
End If
End Sub

Hope this gives you some hint

Cheers
Shasur

SMI// · August 14th, 2009, 04:14 AM

Thanks Shasur

Once again you have helped me so promptly and gracefully. I value your support. Do you think a similar object model would be available in Excel? I doubt because none of the help topics have words "thesaurus" or "synonyms" to look into.

I wish if there could have been something directly within Excel same as you have done in MS-Word. Anyways if you find anything like this then I must request you to send it to my yahoo id nofiljee if this post becomes too old by then.

By the way I have been to your blogs and they also contain some really useful stuff.

Thanks again Shasur