Partilhar via

Objeto SynonymInfo (Word)

  • Artigo

Representa as informações sobre sinônimos, antônimos, palavras relacionadas ou expressões relacionadas para o intervalo especificado ou para uma sequência de caracteres específica.

Comentários

Use a propriedade SynonymInfo para retornar um objeto SynonymInfo. O objeto SynonymInfo pode ser retornado a partir de um intervalo ou do Microsoft Office Word. Quando é retornado a partir do Word, você especificar a palavra de pesquisa ou frase e uma ID de idioma revisores de texto. Se ele for retornado de um intervalo, o Word usa o intervalo especificado como a palavra de pesquisa. O exemplo a seguir retorna um objeto SynonymInfo do Word.

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

O exemplo a seguir retorna um objeto SynonymInfo de um intervalo.

temp = Selection.Range.SynonymInfo.Found

A propriedade Found, usada nos exemplos anteriores, retorna True se qualquer informação for encontrada no dicionário de sinônimos para o intervalo especificado ou para o Word. No entanto, observe que essa propriedade retorna True, não apenas se encontrar sinônimos, mas também se palavras relacionadas, expressões relacionadas, ou antônimos estão localizados.

Muitas das propriedades do objeto SynonymInfo retornam um valor Variant que contém uma matriz de cadeias de caracteres. Ao trabalhar com essas propriedades, você pode atribuir a matriz retornada a uma variável e indexar a variável para ver os elementos na matriz. No exemplo a seguir, a lista de sinônimos relativa ao primeiro significado da palavra ou da frase selecionada é atribuída a Slist. A função UBound localiza o limite superior da matriz e, em seguida, cada elemento é exibido em uma caixa de mensagem.

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

Você pode verificar o valor da propriedade MeaningCount para evitar erros potenciais em seu código. O exemplo a seguir retorna uma lista de sinônimos do segundo significado da palavra ou frase da seleção e exibe esses sinônimos no painel imediato.

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

Confira também

Referência do modelo de objeto do Word

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.