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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de