Convert Word to text .doc to .txt

    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open(strDocPath)
'    strTxtPath= replace(strDocPath,".doc",".txt")
    objDoc.SaveAs strTxtPath, 2
    objDoc.Close
    objWord.Quit
   
    Set objDoc = Nothing
    Set objWord = Nothing