This example displays the Thesaurus dialog box with synonyms for the selected text.
Selection.Range.CheckSynonyms
This example displays the Thesaurus dialog box with synonyms for the first word in the active document.
ActiveDocument.Words(1).CheckSynonyms