Objeto SynonymInfo (Word)

Representa la información acerca de sinónimos, antónimos, palabras o expresiones relacionadas del intervalo especificado o de una cadena dada.

Comentarios

Utilice la propiedad SynonymInfo para devolver un objeto SynonymInfo. El objeto SynonymInfo puede devolverse desde un intervalo o desde Microsoft Office Word. Si lo devuelve Word, especifique la palabra de búsqueda o frase y un corrección identificador de idioma. Si lo devuelve un intervalo, Word utiliza el intervalo especificado como palabra de búsqueda. En el siguiente ejemplo se devuelve un objeto SynonymInfo desde Word.

temp = SynonymInfo(Word:="meant", LanguageID:=wdEnglishUS).Found

En el siguiente ejemplo se devuelve un objeto SynonymInfo desde un intervalo.

temp = Selection.Range.SynonymInfo.Found

La propiedad Found, utilizada en los ejemplos anteriores, devuelve True si toda la información se encuentra en el diccionario de sinónimos para el rango especificado o para Word. Sin embargo, tenga en cuenta que esta propiedad devuelve True no sólo si se encuentran los sinónimos sino también si relacionadas con las palabras, expresiones relacionadas, se encuentran o antónimos.

Muchas de las propiedades del objeto SynonymInfo devuelven una Variant que contiene una matriz de cadenas. Cuando se trabaja con estas propiedades, puede asignar la matriz devuelta a una variable y, a continuación, indizar la variable para ver los elementos de la matriz. En el ejemplo siguiente, a Slist se le asigna la lista de sinónimos para el primer significado de la palabra o frase seleccionada. La función UBound busca el límite superior de la matriz y, a continuación, se muestra cada elemento en un cuadro de mensaje.

Slist = Selection.Range.SynonymInfo.SynonymList(1) 
For i = 1 To UBound(Slist) 
 Msgbox Slist(i) 
Next i

Puede comprobar el valor de la propiedad MeaningCount para evitar posibles errores en el código. En el siguiente ejemplo se devuelve una lista de sinónimos para el segundo significado de la palabra o frase de la selección y se muestra en el panel inmediato.

Set synInfo = Selection.Range.SynonymInfo 
If synInfo.MeaningCount >= 2 Then 
 synList = synInfo.SynonymList(2) 
 For i = 1 To UBound(synList) 
 Debug.Print synList(i) 
 Next i 
Else 
 MsgBox "There is no second meaning for the selection." 
End If

Vea también

Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.