On Error Resume Next
dim iFile
iFile=Wscript.Arguments.Item(0)
Dim iWord,iDocument
Set iWord = CreateObject("Word.Application")
Set iDocument = iWord.Documents.Open(iFile)
iWord.Visible = False
iDocument.SaveAs  Replace(iFile, ".doc", ".txt"), 2
iDocument.Close False
iWord.Quit
Set iDocument = Nothing
Set iWord = Nothing
dim objShell
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "notepad.exe "& Replace(iFile, ".doc", ".txt")