Vorrei usare la seguente routine per
elencare degli antonimi di un vocabolo inglese
Sub ELENCAZIONEPAROLEContrari()
Dim Alist As Object
Dim MEssaggio As String
Dim a As Long
Alist = SynonymInfo(Word:="big", LanguageID:=wdEnglishUS).AntonymList
'For a = 1 To Alist
For a = 1 To VBA.UBound(Alist)
MEssaggio = MsgBox(Alist(a))
Next a
End Sub
ma quando avvio questa routine mi esce un messaggio che evidenzia la parola VBA.Ubound
e dice: "Impossibile trovare il metodo o il membro dei dati".
Dove sbaglio?