Jitao's tweets

- Record something
首页 / DeskHelp / 正文

TXT批量转换WORD

2019-04-04 DeskHelp 71 ℃ 0 评论

如何将TXT批量转换WORD

Dim FSO,s
Set FSO=CreateObject("Scripting.FileSystemObject")
Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))
For Each file In AllF.Files
if right(file,3)="txt" then zhuanhuan file
Next
msgbox "已经将所有文本文件转换成WORD文件!",48+4096,"操作成功"
sub zhuanhuan(filename)
name=fso.getbasename(filename)
set file=fso.opentextfile(filename)
s=file.readall
file.close
Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
Set objDoc = objWord.Documents.Add()
objword.Selection.TypeText s
objword.ActiveDocument.SaveAs AllF & "\" & name & ".doc"
objword.quit
end sub

将上面代码保存成vbs 格式 ,将脚本放到一堆txt文本文件的文件夹里 点击这个vbs脚本文件,然后看到提示:完全转换 即可。文件过多会乱码哦,注意原txt文本需要是utf8 ,gbk的无法转成word!


2016-01-23 17:16:54 通过网页


0

猜你喜欢

额 本文暂时没人评论 来添加一个吧

发表评论