TXT文本文档批量转换为DOC word文档简便方法

将下面的内容写入文本文档,保存为*.vbs即可。运行文件后,该文件目录下所有TXT格式文本文档均被转换另存为DOC格式word文档。

1.Dim FSO,s
2.Set FSO=CreateObject("Scripting.FileSystemObject")
3.Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))
4.For Each file In AllF.Files
5.if right(file,3)="txt" then zhuanhuan file
6.Next
7.msgbox "恭喜您:已经将所有文本文件转换成WORD文件!",48+4096,"操作成功"
8.sub zhuanhuan(filename)
9.name=fso.getbasename(filename)
10.set file=fso.opentextfile(filename)
11.s=file.readall
12.file.close
13.Set objWord = CreateObject("Word.Application")
14.’objWord.Visible = True
15.Set objDoc = objWord.Documents.Add()
16.objword.Selection.TypeText s
17.objword.ActiveDocument.SaveAs AllF & "\" & name & ".doc"
18.objword.quit
19.end sub

赞(0)
office办公分享 » TXT文本文档批量转换为DOC word文档简便方法

本文链接:TXT文本文档批量转换为DOC word文档简便方法https://www.officeapi.cn/3231.html

抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

OFFICE,天天学一点,进步多一点

联系我们