批处理之家 - Powered by Discuz! Board

标题: [已解决]VBS如何把txt文件转换成doc文件 [打印本页]

作者: 随风 时间: 2009-8-26 12:02 标题: [已解决]VBS如何把txt文件转换成doc文件

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

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

作者: Lumiere 时间: 2009-8-26 12:40 标题: 回复 1楼的帖子

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

作者: Lumiere 时间: 2009-8-26 12:41

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

作者: 基拉freedom 时间: 2009-8-26 15:17

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

作者: 基拉freedom 时间: 2009-8-26 15:20

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

作者: zqz0012005 时间: 2009-8-26 20:27

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

作者: zqz0012005 时间: 2009-8-26 20:31

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
复制代码

作者: 随风 时间: 2009-8-26 23:20 标题: 回复 7楼的帖子

解决了，多谢！

作者: Batcher 时间: 2009-8-26 23:43

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
复制代码

作者: 随风 时间: 2009-8-27 03:14 标题: 回复 9楼的帖子

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

作者: Batcher 时间: 2009-8-27 10:25

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

作者: 随风 时间: 2009-8-27 13:08 标题: 回复 11楼的帖子

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

作者: Lumiere 时间: 2009-8-28 09:07 标题: 回复 6楼的帖子

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

作者: 随风 时间: 2009-9-29 16:06

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

作者: pcl_test 时间: 2016-9-9 22:42

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"
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)