hmmm - how about this then:

$format = 8

$word.activedocument.saveas("c:\shawn.txt",$format)

where $format can be (amongst others):

5 - text
6 - rtf
8 - html