Thesarus
Brilliant.
Thank You.
"Peter T" wrote:
Following gets 'some' results but nothing like the extensive list returned
with Shift F7 in Word. Maybe there's a different way!
Option Explicit
Private mObjWord As Object
Sub test()
Dim i As Long
Dim sWord As String
Dim arr
sWord = "some"
If GetMeanings(sWord, arr) Then
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next
End If
' call AllDone ' when done
End Sub
Sub AllDone()
Set mObjWord = Nothing
End Sub
Function GetMeanings(myWord As String, vMeanings)
Dim objSynonymInfo As Object
If mObjWord Is Nothing Then
Set mObjWord = CreateObject("word.application")
End If
Set objSynonymInfo = mObjWord.SynonymInfo(myWord)
vMeanings = objSynonymInfo.MeaningList
GetMeanings = UBound(vMeanings) 0
Exit Function
errExit:
End Function
Don't forget to clean up the Word object when done
Regards,
Peter T
"Nedan Nedzatra" wrote in message
...
Hia!
How are you doing friends?
Some help please!!!
I type 'Some' into A1; Then I select Thesarus to see a list of similar
words; I like to get them into an array.
Is it possible at all?
.
|