The following code snippet gives a hint on how to extract synonym list using Word VBA
Sub Retrieve_Word_Info()
Dim arSynonyms
Dim oSynInfo As SynonymInfo
Dim arSynList
Dim sWord As String
sWord = "call"
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
Posts
