Select That

SCRIPT {
    SendKeys "{Esc 5}"
    DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectThat"", .Run]"
}