<playPlaybackRead> <ReadText>

SCRIPT {
    SendKeys "{Esc 5}"
    if _arg2 = "To Here"    or _arg2 = "Up To Here"     then  DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectToCursor"", .Run]"
    if _arg2 = "From Here"  or _arg2 = "Down From Here" then  DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectFromCursor"", .Run]"
    if _arg2 = "Line"       then  DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectLine"", .Run]"
    if _arg2 = "Paragraph"  then  DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectParagraph"", .Run]"
    if _arg2 = "Screen"     or _arg2 = "Window"         then  DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectScreen"", .Run]"
    if _arg2 = "Document"   then  DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectDocument"", .Run]"
    if _arg2 = "That"       or _arg2 = "Selection" then DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCSelectThat"", .Run]"
    if _arg1 = "Read" then
        SendKeys "{Ctrl+c}"
        TTSPlayString
    else
        DdeExecute "WinWord", "System", "[ToolsMacro .Name=""CallToolsPlaybackSelection"", .Run]"
    end if
    Wait 500
    if _arg2 = "That"       or _arg2 = "Selection" then DdeExecute "WinWord", "System", "[ToolsMacro .Name=""WCRestoreSelection"", .Run]"
    SendKeys "{Right}"
}