Wrox Programmer Forums
|
Excel VBA Discuss using VBA for Excel programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Excel VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old August 13th, 2009, 12:18 PM
Authorized User
 
Join Date: Apr 2009
Posts: 23
Thanks: 1
Thanked 0 Times in 0 Posts
Default How to do this

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.
 
Old August 13th, 2009, 09:24 PM
Friend of Wrox
 
Join Date: Sep 2005
Posts: 812
Thanks: 1
Thanked 53 Times in 49 Posts
Default

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
__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)
 
Old August 14th, 2009, 04:14 AM
Authorized User
 
Join Date: Apr 2009
Posts: 23
Thanks: 1
Thanked 0 Times in 0 Posts
Default

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









Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.