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

随风

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

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

Lumiere

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

Lumiere

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

基拉freedom

哇哇
真的可以 不过打开会显示错误 说不支持语言什么的 不过内容是有的
[attach]1817[/attach]
学习了

基拉freedom

附上错误说明：
[attach]1818[/attach]

zqz0012005

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

zqz0012005

Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.InsertFile("D:\桌面\a.txt")    '最好写完整路径，下同
objDoc.SaveAs "D:\桌面\a_tem.doc"
objWord.Quit
复制代码

随风

解决了，多谢！

Batcher

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTxt = objFSO.OpenTextFile("C:\test\a.txt",1,True)
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
strText = objTxt.ReadAll
objSelection.TypeText strText
objDoc.SaveAs("C:\test\a.doc")
objWord.Quit
objTxt.Close
Set objWord = Nothing
Set objTxt = Nothing
Set objFSO = Nothing
复制代码

随风

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

Batcher

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

随风

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

Lumiere

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

随风

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

pcl_test

txtfile = "D:\文本.txt"
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.open(txtfile)
objDoc.SaveAs2 Left(txtfile,InStrRev(txtfile,"."))&"doc"
objDoc.Close:objWord.Quit
Msgbox "Done"
复制代码