code:

---

break on
$filename = "C:\TEST.DOC"

$word = createobject("word.application")

if $word
 $= $word.documents.open("$filename")
 $format = 5

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

 ;where $format can be (amongst others):
 ;5 - text
 ;6 - rtf
 ;8 - html
 $word.quit
 $word = 0
endif

exit 1
  

---