This topic has not yet been rated Rate this topic

SynonymInfo.AntonymList Property

Office 2007

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

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`

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

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`

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

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`

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