Range.CheckSynonyms (Word)

Displays the Thesaurus dialog box, which lists alternative word choices, or synonyms, for the text in the specified range.

Selection.Range.CheckSynonyms