Antonyms in Excel 365

[donali]

Hello - I am trying to generate antonyms in Excel 365. Imagine in cells A1:A15 that I have 15 words. In B1:B15 I would like to see antonyms. I copied the code below from another thread on this site, but it doesn't seem to work, getting hung up on: Set mObjWord = CreateObject("word.application"). Does anyone have thoughts on this? Very much appreciated.

Option Explicit
Private mObjWord As Object
 
Sub Antonyms()
Dim i As Long
Dim c As Range
Dim sWord As String
Dim arr
For Each c In Selection
    sWord = c
   
    If GetMeanings(sWord, arr) Then
    For i = LBound(arr) To UBound(arr)
        c.Offset(0, i).Value = arr(i)
    Next
   
    End If
Next c
Set mObjWord = Nothing 'clears the word object when done
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.AntonymList
GetMeanings = UBound(vMeanings) > 0
End Function

 

[Michael M]

Don't know if this will work in 365, but have a look at this thread, in particular post #9

Antonyms of the WordList in excel using vba

Hi, I would like to have the antonyms of the word list of (5000 plus words) of Col A, in the columns on the right side. This i would like to achieve using VBA codes. Please assist me in doing this, in excel.

www.mrexcel.com

 

[JGordon11]

It worked for me after I added the Microsoft Word 16.0 Object Library.

In the VBA editor, select Tools, References, then check the box for the aforementioned library, then try the code again with the cells with your words selected.

 

[johnnyL]

@Michael M post #9 in the thread you indicated is the exact same code as the OP.

 

[Michael M]

ROFL, ROFL.......must work then !!

 

[johnnyL]

I don't have Excel 365, but see if this works:

Option Explicit

Private wdDoc               As Object
 
 
Sub Antonyms()
'
    Dim AntonymWordCounter  As Long
    Dim LastRowA            As Long
    Dim wdDoc               As Object
    Dim wdApp               As Object
    Dim Cel                 As Range
    Dim strGUID             As String
    Dim AntonymWord         As String
    Dim arr
'
    strGUID = "{00020905-0000-0000-C000-000000000046}"                      ' Microsoft Word reference
'
    On Error Resume Next
        ThisWorkbook.VBProject.References.AddFromGuid strGUID, 0, 0
    On Error GoTo 0
'
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
'
    LastRowA = Range("A" & Rows.Count).End(xlUp).Row
'
    For Each Cel In Range("A1:A" & LastRowA)
        AntonymWord = Cel
'
        If GetMeanings(AntonymWord, arr) Then
            For AntonymWordCounter = LBound(arr) To UBound(arr)
            Cel.Offset(0, AntonymWordCounter).Value = arr(AntonymWordCounter)
            Next
        End If
    Next
'
    Set wdDoc = Nothing                                                     'clears the word object when done
End Sub
 
Function GetMeanings(myWord As String, vMeanings)
'
    Dim objSynonymInfo As Object
'
    If wdDoc Is Nothing Then
        Set wdDoc = CreateObject("word.application")
    End If
'
    Set objSynonymInfo = wdDoc.SynonymInfo(myWord)
'
    vMeanings = objSynonymInfo.AntonymList
    GetMeanings = UBound(vMeanings) > 0
End Function

 

[donali]

Thanks for the replies. I have indeed checked the Microsoft Office 16.0 Object Library in References, and the original code that I posted doesn't work. Unfortunately johnnyL's code doesn't work either.

Specifically what happens with johnnyL's code:

1. A Microsoft Word window opens offering templates to choose, a list of my prior documents, and a Cancel or Creat option at the bottom right. Selecting Cancel makes it disappear, Create opens a blank document.

2. A VBA error box can be found under the above, showing this "Run-time error: Methos 'VBProject' of object '_Workbook' failed". Hitting the Debug button shows this highlighted in yellow in the code: Set wdApp = CreateObject("Word.Application")

Does it matter that I am using 365 for Mac? Really appreciate the help here.

 

[donali]

Forgive me - I should state that I have indeed checked the Microsoft Word 16.0 Object Library. Apologies for error. The things that are checked are: