Tuesday, October 30, 2012

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

4 comments:

  1. Great advice! Learning ui design classes online
    hands-on makes building real-world applications easier.

    ReplyDelete
  2. A Python programming class provides guided coding education. It focuses on fundamentals. Practice improves accuracy. Learners gain confidence. This python programming class supports learning. It is reliable.

    ReplyDelete
  3. An android classes online option provides interactive virtual learning. It supports real-time doubt resolution. This android classes online enhances engagement. It is learner-friendly.

    ReplyDelete
  4. Informative read! Effective data modeling certification
    simplifies complexity and improves overall data management.

    ReplyDelete