oShell = CreateObject("WScript.Shell") ... if oShell.AppActivate("Spelling:") && this probably brings the dialog to the front, at least it works for my Word older version