Propriedade SynonymInfo.MeaningCount (Word)

Retorna o número de entradas na lista de significados encontrados no dicionário de sinônimos da palavra ou frase. Retorna 0 (zero) se nenhum significado é encontrado. Long somente leitura.

Sintaxe

expression. MeaningCount

Expressão Uma expressão que retorna um objeto 'SynonymInfo'.

Comentários

Cada significado representa uma lista exclusiva de sinônimos da palavra ou frase.

As listas de palavras relacionadas, expressões relacionadas e antônimos não são contadas como entradas da lista de significados.

Exemplo

Este exemplo verifica se algum significado foi encontrado para a seleção. Caso seja encontrado, a lista de significados será exibida na janela Imediata do Editor do Visual Basic.

Set mySynInfo = Selection.Range.SynonymInfo 
If mySynInfo.MeaningCount <> 0 Then 
 myList = mySynInfo.MeaningList 
 For i = 1 To Ubound(myList) 
 Debug.Print myList(i) 
 Next i 
Else 
 Msgbox "There were no meanings found." 
End If

Confira também

Objeto SynonymInfo

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.