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")