[已解决]VBS如何把txt文件转换成doc文件

随风

如何把txt文件转换成doc文件
工作需要，要把a.txt转换成a_tem.doc文件
记得vbs是可以做到的，以前有代码，弄丢了。
vbs始终没时间入门，有劳各位了。。。

[ 本帖最后由 随风 于 2009-8-26 23:20 编辑 ]

Lumiere

呵呵，没想到超版也有问人问题的时候……有意思
你头像用得太牛了，结合你问问题感觉很可爱的说，哈哈

Lumiere

不能从txt里然后echo到doc格式么？好像可以的啊……

基拉freedom

哇哇
真的可以 不过打开会显示错误 说不支持语言什么的 不过内容是有的

学习了

基拉freedom

附上错误说明：

zqz0012005

To 楼上几位：doc文件是二进制文件。。。echo成么？

zqz0012005

1. Set objWord = CreateObject("Word.Application")
   
2. 'objWord.Visible = True
   
3. Set objDoc = objWord.Documents.Add()
   
4. Set objSelection = objWord.Selection
   
5. objSelection.InsertFile("D:\桌面\a.txt")    '最好写完整路径，下同
   
6. objDoc.SaveAs "D:\桌面\a_tem.doc"
   
7. objWord.Quit

复制代码

随风

解决了，多谢！

Batcher

1. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
2. Set objTxt = objFSO.OpenTextFile("C:\test\a.txt",1,True)
   
3. Set objWord = CreateObject("Word.Application")
   
4. Set objDoc = objWord.Documents.Add()
   
5. Set objSelection = objWord.Selection
   
6. strText = objTxt.ReadAll
   
7. objSelection.TypeText strText
   
8. objDoc.SaveAs("C:\test\a.doc")
   
9. objWord.Quit
   
10. objTxt.Close
    
11. Set objWord = Nothing
    
12. Set objTxt = Nothing
    
13. Set objFSO = Nothing

复制代码

随风

兄的代码明显比zqz兄的长很多，不知是严谨些，还是功能全面些，望告知。

Batcher

我的思路跟zqz兄略有不同。
他是打开Word之后，插入txt的内容；我是打开Word和txt，把txt的全部内容复制到Word。
相比之下，他的更加简洁。

随风

谢了，不知在效率上有区别吗？

Lumiere

我试过，能把内容echo进去，而且没有三楼所提到的错误提示。不知道为什么

随风

实际运用中，7楼的代码偶尔会有一两个文件全是乱码，但9楼的则不会，不过9楼转换过来的doc文件却明显比7楼的大些，不知道为什么。。。

pcl_test

1. txtfile = "D:\文本.txt"
   
2. Set objWord = CreateObject("Word.Application")
   
3. Set objDoc = objWord.Documents.open(txtfile)
   
4. objDoc.SaveAs2 Left(txtfile,InStrRev(txtfile,"."))&"doc"
   
5. objDoc.Close:objWord.Quit
   
6. Msgbox "Done"

复制代码