请问vbscript中有没有将word和excel文档转换为txt文件的函数？

Question

vbscript中只能使用CREATEOBJECT（“”）
来创建对象！，然后

Answer 1

感谢您使用微软产品。在VBscript中没有提供直接将Word或Excel类型的文档转换为Txt类型的函数，您可以通过使用Office对象的方法实现该目的：请参考以下代码：
'Convert xls to txt
Set eapp = CreateObject("Excel.Application")
Set books = eapp.Workbooks
books.Open ("C:\test.xls")
eapp.Visible = True
books(1).SaveAs "C:\Book1.txt", 42
books(1).Close False
eapp.Quit
'Convert doc to txt
Set wapp = CreateObject("Word.Application")
Set docs = wapp.Documents
docs.Open ("C:\cover.doc")
wapp.Visible = True
docs(1).SaveAs "c:\cover.txt", 2
docs(1).Close False
wapp.Quit您可以参考以下文章，学习Word和Excel对象的使用：
Microsoft Office XP Developer   Working with Microsoft Excel Objects
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deovrworkingwithmicrosoftexcelobjects.asp 
以及
Microsoft Office XP Developer   Working with Microsoft Word Objects
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deovrworkingwithmicrosoftwordobjects.asp 微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。