1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Looking for synonyms database

Discussion in 'Associated Content & Writing Articles' started by deki33, Nov 2, 2010.

  1. deki33

    deki33 Jr. VIP Jr. VIP Premium Member

    Joined:
    Oct 9, 2009
    Messages:
    4,597
    Likes Received:
    763
    Hi,

    I'm looking for synonyms database to use in wpunique.
    It's in this format:

    acquire,buy
    acquired,bought
    acquires,buys
    almost,nearly
    amazing,incredible
    brand new,groundbreaking new
    anger,rage


    Does anybody know where to find it ?
     
  2. Viltedali

    Viltedali Regular Member

    Joined:
    Feb 10, 2008
    Messages:
    305
    Likes Received:
    32
    Location:
    Midwest-US
    Maybe this will work for you (not sure of the list format offhand):

    HTML:
    http://www.gutenberg.org/ebooks/3202
    Click on the 'download' tab on the page.
     
  3. deki33

    deki33 Jr. VIP Jr. VIP Premium Member

    Joined:
    Oct 9, 2009
    Messages:
    4,597
    Likes Received:
    763
    Thanks, but it's not synonyms database.

    From
    Code:
    Hello man how are you today. It's a nice day.
    It made
    Code:
    Accost Achilles how are I as of now. I's a Christian All-comprehending Date DMZ.
     
  4. redfan123

    redfan123 Regular Member

    If you can code in MS VBA and you have MS Word, it has it's own Synonyms engine that you can write to. The Bad Article Rewrite website does something similar.
     
  5. redfan123

    redfan123 Regular Member

    Code:
    [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]
    This is a sample for MS Excel. The important part here is the Set oSynInfo = MSWord.SynonymInfo(strWord) part.
     
  6. Mr.Profit

    Mr.Profit Regular Member

    Joined:
    Dec 22, 2009
    Messages:
    219
    Likes Received:
    471
    Occupation:
    Marketer and SEO
    Location:
    Internet
    Home Page:
    Hello there,

    I have one request for you - DO NOT SELL/RESELL this share of mine.

    Here is a good DB of phrase synonims:
    Code:
    http://www.mediafire.com/?1vjgz4t8ea58exa
    Hope it helps,
    Mr.Profit
     
    • Thanks Thanks x 3
  7. deki33

    deki33 Jr. VIP Jr. VIP Premium Member

    Joined:
    Oct 9, 2009
    Messages:
    4,597
    Likes Received:
    763
    :congrats::congrats::congrats: