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

Lumiere

上校

Rank: 6 Rank: 6

帖子: 473
积分: 3367
技术: 7
捐助: 0
注册时间: 2009-2-4

3楼

发表于 2009-8-26 12:41 | 只看该作者

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

Still with wax

基拉freedom

上尉

Rank: 5 Rank: 5

帖子: 245
积分: 1024
技术: 5
捐助: 0
注册时间: 2008-7-31

4楼

发表于 2009-8-26 15:17 | 只看该作者

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

o(∩_∩)o...~~~
空间：http://hi.baidu.com/fair_jm
喜欢批处理的没事的话去逛逛哦~~

基拉freedom

上尉

Rank: 5 Rank: 5

帖子: 245
积分: 1024
技术: 5
捐助: 0
注册时间: 2008-7-31

5楼

发表于 2009-8-26 15:20 | 只看该作者

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

o(∩_∩)o...~~~
空间：http://hi.baidu.com/fair_jm
喜欢批处理的没事的话去逛逛哦~~

zqz0012005

Rank: 8 Rank: 8

帖子: 1069
积分: 12123
技术: 38
捐助: 0
注册时间: 2008-5-10

6楼

发表于 2009-8-26 20:27 | 只看该作者

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

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

zqz0012005

Rank: 8 Rank: 8

帖子: 1069
积分: 12123
技术: 38
捐助: 0
注册时间: 2008-5-10

7楼

发表于 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.QuitCOPY

1 评分人数

随风: 多谢！PB + 11

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

8楼

发表于 2009-8-26 23:20 | 只看该作者

回复 7楼的帖子

解决了，多谢！

技术问题请到论坛发帖求助！

Batcher

管理员

Rank: 12

帖子: 14981
积分: 46194
技术: 859
捐助: 745
注册时间: 2008-6-9

9楼

发表于 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 = NothingCOPY

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

10楼

发表于 2009-8-27 03:14 | 只看该作者

回复 9楼的帖子

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

技术问题请到论坛发帖求助！

Batcher

管理员

Rank: 12

帖子: 14981
积分: 46194
技术: 859
捐助: 745
注册时间: 2008-6-9

11楼

发表于 2009-8-27 10:25 | 只看该作者

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

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

12楼

发表于 2009-8-27 13:08 | 只看该作者

回复 11楼的帖子

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

技术问题请到论坛发帖求助！

Lumiere

上校

Rank: 6 Rank: 6

帖子: 473
积分: 3367
技术: 7
捐助: 0
注册时间: 2009-2-4

13楼

发表于 2009-8-28 09:07 | 只看该作者

回复 6楼的帖子

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

Still with wax

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

14楼

发表于 2009-9-29 16:06 | 只看该作者

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

技术问题请到论坛发帖求助！

pcl_test

Rank: 8 Rank: 8

帖子: 3040
积分: 5332
技术: 685
捐助: 0
注册时间: 2014-10-19

15楼

发表于 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"COPY