Maybe this will work for you (not sure of the list format offhand):
Click on the 'download' tab on the page.HTML:http://www.gutenberg.org/ebooks/3202
Hello man how are you today. It's a nice day.
Accost Achilles how are I as of now. I's a Christian All-comprehending Date DMZ.
[FONT=Arial][COLOR=Pink][SIZE=2]Public Sub Syno()
Dim MSWord As Object, oSynInfo As Object
Dim vSynList As Variant
Dim strWord As String
Set MSWord = CreateObject("Word.Application")
strWord = ActiveCell.Value
Set oSynInfo = MSWord.SynonymInfo(strWord)
If oSynInfo.Found = True Then
For i1 = 1 To oSynInfo.MeaningCount
vSynList = oSynInfo.SynonymList(i1)
For i2 = 1 To UBound(vSynList)
Debug.Print vSynList(i2)
Next i2
Next i1
End If
Set oSynInfo = Nothing
Set MSWord = Nothing
End Sub[/SIZE][/COLOR][/FONT]
Hello there,
I have one request for you - DO NOT SELL/RESELL this share of mine.
Here is a good DB of phrase synonims:
Hope it helps,Code:http://www.mediafire.com/?1vjgz4t8ea58exa
Mr.Profit