Returns a list of antonyms for the word or phrase. The list is returned as an array of strings. Read-only
Variant.
Syntax
expression.AntonymList
expression An expression that returns a SynonymInfo
object.
Remarks
The AntonymList property is a property of the SynonymInfo object, which can be returned from either a range or the application. If this object is returned from the application, you specify the word to look up and the language to use. When the object is returned from a range, the range is looked up using the language of the range.
Example
This example returns a list of antonyms for the word "big" in U.S. English.
| Visual Basic for Applications |
|---|
Dim arrayAntonyms As Variant
Dim intLoop As Integer
arrayAntonyms = SynonymInfo(Word:="big", _
LanguageID:=wdEnglishUS).AntonymList
For intLoop = 1 To UBound(arrayAntonyms)
MsgBox arrayAntonyms(intLoop)
Next intLoop
|
This example returns a list of antonyms for the word or phrase in the selection and displays them in the Immediate window in the Visual Basic Editor.
| Visual Basic for Applications |
|---|
Dim arrayAntonyms As Variant
Dim intLoop As Integer
arrayAntonyms = Selection.Range.SynonymInfo.AntonymList
If UBound(arrayAntonyms) <> 0 Then
For intLoop = 1 To UBound(arrayAntonyms)
Debug.Print arrayAntonyms(intLoop) & Str(intLoop)
Next intLoop
Else
MsgBox "No antonyms were found."
End If
|
This example returns a list of antonyms, if there are any, for the third word in the active document.
| Visual Basic for Applications |
|---|
Dim rngTemp As Range
Dim arrayAntonyms As Variant
Dim intLoop As Integer
Set rngTemp = ActiveDocument.Words(3)
arrayAntonyms = rngTemp.SynonymInfo.AntonymList
If UBound(arrayAntonyms) = 0 Then
MsgBox "There are no antonyms for the third word."
Else
For intLoop = 1 To UBound(arrayAntonyms)
MsgBox arrayAntonyms(intLoop)
Next intLoop
End If
|