Range.CheckSynonyms (Word)

Exibe a caixa de diálogo Dicionário de sinônimos, que lista palavras alternativas, ou sinônimos, para o texto do intervalo especificado.

Selection.Range.CheckSynonyms