It seems like there has got to be a better way but...

http://www.microsoft.com/technet/scriptcenter/topics/office/tasks.mspx

Code:
 break on
$objWord = CreateObject("Word.Application")
$colTasks = $objWord.Tasks

For Each $objTask in $colTasks
    If $objTask.Visible 
        ? $objTask.Name
    EndIf
Next

$objWord.Quit
_________________________
(... better days ahead)